[Bug fortran/83196] ICE in gfc_build_compare_string, at fortran/trans-expr.c:3609 (and others)

[gscfq@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83196

--- Comment #1 from G. Steinmetz <gscfq@t-online.de> ---

With reversed order, i.e. definition of "f" first :


$ cat z2.f90
program p
   call s
contains
   character(3) function f()
      f = 'abc'
   end
   subroutine s
      if ( f /= 'abc' ) call abort
   end
end


$ gfortran-8-20171126 -c z2.f90
z2.f90:8:13:

       if ( f /= 'abc' ) call abort
             1
Error: Function 'f' requires an argument list at (1)