gcc/testsuite/gfortran.dg/elemental_bind_c.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/33412
   4 !
   5 elemental subroutine a() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" }
   6 end subroutine a ! { dg-error "Expecting END PROGRAM" }
   7
   8 elemental function b() bind(c) ! { dg-error "BIND.C. attribute conflicts with ELEMENTAL" }
   9 end function b ! { dg-error "Expecting END PROGRAM" }
  10 end