52a1346b78
For "USE, INTRINSIC", search only for intrinsic modules; for "USE, NON_INTRINSIC", do not recognize intrinsic modules. Allow modules of both kinds with the same name to be used in the same source file (but not in the same scoping unit, a constraint of the standard that is now enforced). The symbol table's scope tree now has a single instance of a scope with a new kind, IntrinsicModules, whose children are the USE'd intrinsic modules (explicit or not). This separate "top-level" scope is a child of the single global scope and it allows both intrinsic and non-intrinsic modules of the same name to exist in the symbol table. Intrinsic modules' scopes' symbols now have the INTRINSIC attribute set. The search path directories need to make a distinction between regular directories and the one(s) that point(s) to intrinsic modules. I allow for multiple intrinsic module directories in the second search path, although only one is needed today. Differential Revision: https://reviews.llvm.org/D118631
31 lines
1.0 KiB
Fortran
31 lines
1.0 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! 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
|
|
!ERROR: Cannot USE,NON_INTRINSIC module 'iso_fortran_env' in the same scope as USE,INTRINSIC
|
|
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
|
|
|