blob: 54100d191dda79b7888951c30d32b9c07df30e02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do compile }
module foo
end module foo
use foo
use :: foo
use, intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }
use, non_intrinsic iso_fortran_env ! { dg-error "\"::\" was expected after module nature" }
use, nonintrinsic :: iso_fortran_env ! { dg-error "shall be either INTRINSIC or NON_INTRINSIC" }
use, intrinsic :: iso_fortran_env
end
! { dg-final { cleanup-modules "foo" } }
|
