1! { dg-do run } 2! { dg-options "-fcoarray=single" } 3! { dg-shouldfail "error stop" } 4! 5! Coarray support 6! PR fortran/18918 7 8implicit none 9integer :: n 10character(len=30) :: str 11critical 12end critical 13myCr: critical 14end critical myCr 15 sync all 16 sync all ( ) 17 n = 5 18 sync all (stat=n) 19 if (n /= 0) call abort() 20 n = 5 21 sync all (stat=n,errmsg=str) 22 if (n /= 0) call abort() 23 sync all (errmsg=str) 24 25 sync memory 26 sync memory ( ) 27 n = 5 28 sync memory (stat=n) 29 if (n /= 0) call abort() 30 n = 5 31 sync memory (errmsg=str,stat=n) 32 if (n /= 0) call abort() 33 sync memory (errmsg=str) 34 35sync images (*, stat=n) 36sync images (1, errmsg=str) 37sync images ([1],errmsg=str,stat=n) 38 39sync images (*) 40sync images (1) 41sync images ([1]) 42 43if (num_images() /= 1) call abort() 44error stop 'stop' 45end 46 47! { dg-output "ERROR STOP stop" } 48