blob: 703ca1716caf87ccf62cfd897ffbadf2e8b00e15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { 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" }
|
