blob: 0d6a38e11e26305fe3f8c1d395321d201fc17cd9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { 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
|