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