blob: fce01e36a706edd3581a377fe11d5a38f1570529 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! PR fortran/97768
! { dg-do compile }
module pr97768_1
interface operator(.in.)
module procedure substr_in_str
end interface
contains
pure function to_upper (in_str) result (string)
character(len=*), intent(in) :: in_str
character(len=len(in_str)) :: string
string = in_str
end function to_upper
logical pure function substr_in_str (substring, string)
character(len=*), intent(in) :: string, substring
substr_in_str=.false.
end function
end module
function foo ()
use pr97768_1, only : to_upper, operator(.in.)
logical :: foo
character(len=8) :: str
str = 'abcde'
foo = 'b' .in. to_upper (str)
end function foo
|
