2 ! Tests fix for PR26107 in which an ICE would occur after the second
\r
3 ! error message below. This resulted from a spurious attempt to
\r
4 ! produce the third error message, without the name of the function.
\r
6 ! This is an expanded version of the testcase in the PR.
\r
8 pure function equals(self, & ! { dg-error "must be INTENT" }
\r
9 string, ignore_case) result(same)
\r
10 character(*), intent(in) :: string
\r
11 integer(4), intent(in) :: ignore_case
\r
13 if (len (self) < 1) return ! { dg-error "must be CHARACTER" }
\r
17 function impure(self) result(ival)
\r
18 character(*), intent(in) :: self
\r
22 pure function purity(self, string, ignore_case) result(same)
\r
23 character(*), intent(in) :: self
\r
24 character(*), intent(in) :: string
\r
25 integer(4), intent(in) :: ignore_case
\r
27 if (end > impure (self)) & ! { dg-error "non-PURE procedure" }
\r