2 ! { dg-options "-std=f2003" }
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:" }
15 ! num_images is implicitly defined:
16 n = num_images() ! { dg-error "convert UNKNOWN to INTEGER" }
17 error stop 'stop' ! { dg-error "Fortran 2008:" }