mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
27 lines
663 B
Fortran
27 lines
663 B
Fortran
! { dg-do compile }
|
|
! PR fortran/54223
|
|
subroutine r(d)
|
|
implicit none
|
|
integer, optional :: d
|
|
integer :: h, q
|
|
q(d) = d + 1 ! statement function statement
|
|
h = q(d)
|
|
end subroutine r
|
|
|
|
subroutine s(x)
|
|
implicit none
|
|
integer, optional :: x
|
|
integer :: g, z
|
|
g(x) = x + 1 ! statement function statement
|
|
z = g() ! { dg-error "Missing actual argument" }
|
|
end subroutine s
|
|
|
|
subroutine t(a)
|
|
implicit none
|
|
integer :: a
|
|
integer :: f, y
|
|
f(a) = a + 1 ! statement function statement
|
|
y = f() ! { dg-error "Missing actual argument" }
|
|
end subroutine t
|
|
! { dg-prune-output " Obsolescent feature" }
|