mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
15 lines
248 B
Fortran
15 lines
248 B
Fortran
! { 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
|