Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
interface_39.f90
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