1! RUN: %python %S/test_errors.py %s %flang_fc1 2module m1 3 integer :: x 4 integer :: y 5 integer :: z 6 integer, parameter :: k1 = selected_int_kind(9) 7end 8module m2 9 real :: y 10 real :: z 11 real :: w 12 integer, parameter :: k2 = selected_int_kind(9) 13end 14 15subroutine p1 16 use m1 17 use m2 18 ! check that selected_int_kind is not use-associated 19 integer, parameter :: k = selected_int_kind(9) 20end 21 22program p2 23 use m1, xx => x, y => z 24 use m2 25 volatile w 26 !ERROR: Cannot change CONTIGUOUS attribute on use-associated 'w' 27 contiguous w 28 !ERROR: 'z' is use-associated from module 'm2' and cannot be re-declared 29 integer z 30 real, target :: a(10) 31 real, contiguous, pointer :: p(:) => a 32 !ERROR: Reference to 'y' is ambiguous 33 y = 1 34 contains 35 subroutine inner 36 p(1) = 0. ! ok - check for regression on contiguous host assoc. 37 end subroutine 38end 39