blob: 941316d71e748178b46eed9ed5b60a34c3e5fb67 (
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/68319
!
subroutine foo
interface
real function bar(i)
f(i) = 2 * i ! { dg-error "cannot appear within" }
end function bar
real function bah(j)
entry boo(j) ! { dg-error "cannot appear within" }
end function bah
real function fu(j)
data i /1/ ! { dg-error "cannot appear within" }
end function fu
real function fee(j)
10 format('(A)') ! { dg-error "cannot appear within" }
end function fee
end interface
end subroutine foo
|
