blob: d2bf5e750ad121fa49438ff9a62d65f8cfc1b13a [file] [log] [blame]
! 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