coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr70006.f90
blobb8fbb3c26ee1fc98c8d75546aeabbe3a9a3f7cad
1 ! { dg-do compile}
2 program test
3 print 1, 'string 1' ! { dg-error "FORMAT label 1" " " { target *-*-* } 3 }
4 print 1, 'string 2' ! { dg-error "FORMAT label 1" " " { target *-*-* } 4 }
5 !1 format(a)
6 goto 2 ! { dg-error "Label 2 referenced" " " { target *-*-* } 6 }
7 goto 2 ! { dg-error "Label 2 referenced" " " { target *-*-* } 7 }
8 !2 continue
9 end program