https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68442
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Detected with reversed order :
$ cat z2.f90
module m
interface gkind
procedure g
end interface
contains
integer function g()
g = 1
end
subroutine f(x)
character(kind=gkind()) :: x
end
end
$ gfortran-5 -g -O0 -Wall -fcheck=all z2.f90
z2.f90:10:21:
character(kind=gkind()) :: x
1
Error: Function 'gkind' in initialization expression at (1) must be an
intrinsic function
