gcc/testsuite/gfortran.dg/pr104210.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=single" }
   3 ! PR fortran/104210
   4 ! Contributed by G.Steinmetz
   5
   6 function f()      ! { dg-error "shall not be a coarray" }
   7   integer :: f[*]
   8 end
   9 program p
  10   interface
  11      function f() ! { dg-error "shall not be a coarray" }
  12        integer :: f[*]
  13      end
  14   end interface
  15 end