gcc/testsuite/gfortran.dg/coarray_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 !
   4 ! Coarray support
   5 ! PR fortran/18918
   6 !
   7 implicit none
   8 integer :: n
   9 critical  ! { dg-error "Fortran 2008:" }
  10   sync all()  ! { dg-error "Fortran 2008:" }
  11 end critical ! { dg-error "Expecting END PROGRAM" }
  12 sync memory  ! { dg-error "Fortran 2008:" }
  13 sync images(*)  ! { dg-error "Fortran 2008:" }
  14
  15 ! num_images is implicitly defined:
  16 n = num_images()  ! { dg-error "has no IMPLICIT type" }
  17 error stop 'stop'  ! { dg-error "Fortran 2008:" }
  18 end