Merge from mainline (165734:167278).
[official-gcc/graphite-test-results.git] / gcc / testsuite / gfortran.dg / use_3.f90
blob54100d191dda79b7888951c30d32b9c07df30e02
1 ! { dg-do compile }
2 module foo
3 end module foo
5 use foo
6 use :: foo
7 use, intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }
8 use, non_intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }
9 use, nonintrinsic :: iso_fortran_env ! { dg-error "shall be either INTRINSIC or NON_INTRINSIC" }
10 use, intrinsic :: iso_fortran_env
11 end
12 ! { dg-final { cleanup-modules "foo" } }