! { dg-do compile } | |
! { dg-options "-fcoarray=single" } | |
! PR fortran/104210 | |
! Contributed by G.Steinmetz | |
function f() ! { dg-error "shall not be a coarray" } | |
integer :: f[*] | |
end | |
program p | |
interface | |
function f() ! { dg-error "shall not be a coarray" } | |
integer :: f[*] | |
end | |
end interface | |
end |