gcc/testsuite/gfortran.dg/pr97768_1.f90

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