mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
17 lines
333 B
Fortran
17 lines
333 B
Fortran
! { dg-do compile }
|
|
! PR69397
|
|
program p
|
|
interface f
|
|
procedure f1 ! { dg-error "neither function nor subroutine" }
|
|
!... more
|
|
end interface
|
|
integer, allocatable :: z
|
|
print *, f(z) ! { dg-error "no specific function" }
|
|
contains
|
|
integer function f2 (x)
|
|
integer, allocatable :: x
|
|
f2 = 1
|
|
end
|
|
end
|
|
|