blob: 182404c265b903538c1f41b9d41f92b63d5b330c [file] [log] [blame]
! { 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