fa5e4482e0
When an intrinsic is referenced in a module scope, a symbol for it is added. When that module is USEd, the intrinsic should not be included. Otherwise we can get ambiguous reference errors with the same intrinsic coming from two difference modules. Differential Revision: https://reviews.llvm.org/D83905
33 lines
664 B
Fortran
33 lines
664 B
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
module m1
|
|
integer :: x
|
|
integer :: y
|
|
integer :: z
|
|
integer, parameter :: k1 = selected_int_kind(9)
|
|
end
|
|
module m2
|
|
real :: y
|
|
real :: z
|
|
real :: w
|
|
integer, parameter :: k2 = selected_int_kind(9)
|
|
end
|
|
|
|
program p1
|
|
use m1
|
|
use m2
|
|
! check that selected_int_kind is not use-associated
|
|
integer, parameter :: k = selected_int_kind(9)
|
|
end
|
|
|
|
program p2
|
|
use m1, xx => x, y => z
|
|
use m2
|
|
volatile w
|
|
!ERROR: Cannot change CONTIGUOUS attribute on use-associated 'w'
|
|
contiguous w
|
|
!ERROR: 'z' is use-associated from module 'm2' and cannot be re-declared
|
|
integer z
|
|
!ERROR: Reference to 'y' is ambiguous
|
|
y = 1
|
|
end
|