1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
! Test intrinsic vs non_intrinsic module coexistence
module iso_fortran_env
integer, parameter :: user_defined_123 = 123
end module
module m1
use, intrinsic :: iso_fortran_env, only: int32
!PORTABILITY: Should not USE the non-intrinsic module 'iso_fortran_env' in the same scope as a USE of the intrinsic module
use, non_intrinsic :: iso_fortran_env, only: user_defined_123
end module
module m2
use, intrinsic :: iso_fortran_env, only: int32
end module
module m3
use, non_intrinsic :: iso_fortran_env, only: user_defined_123
end module
module m4
use :: iso_fortran_env, only: user_defined_123
end module
module m5
!ERROR: Cannot read module file for module 'ieee_arithmetic': Source file 'ieee_arithmetic.mod' was not found
use, non_intrinsic :: ieee_arithmetic, only: ieee_selected_real_kind
end module
module notAnIntrinsicModule
end module
module m6
!ERROR: Cannot read module file for module 'notanintrinsicmodule': Source file 'notanintrinsicmodule.mod' was not found
use, intrinsic :: notAnIntrinsicModule
end module
|
