gcc/testsuite/gfortran.dg/pr104210.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { 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