blob: 0d6a38e11e26305fe3f8c1d395321d201fc17cd9 [file] [log] [blame]
! { dg-do compile }
! PR68442
module m
interface gkind
procedure g
end interface
contains
subroutine f(x)
character(kind=gkind()) :: x ! { dg-error "must be an intrinsic" }
end
integer function g()
g = 1
end
end