mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
27 lines
582 B
Fortran
27 lines
582 B
Fortran
! { 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
|