39 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m13 integer :: x4 integer :: y5 integer :: z6 integer, parameter :: k1 = selected_int_kind(9)7end8module m29 real :: y10 real :: z11 real :: w12 integer, parameter :: k2 = selected_int_kind(9)13end14 15subroutine p116 use m117 use m218 ! check that selected_int_kind is not use-associated19 integer, parameter :: k = selected_int_kind(9)20end21 22program p223 use m1, xx => x, y => z24 use m225 volatile w26 !ERROR: Cannot change CONTIGUOUS attribute on use-associated 'w'27 contiguous w28 !ERROR: 'z' is use-associated from module 'm2' and cannot be re-declared29 integer z30 real, target :: a(10)31 real, contiguous, pointer :: p(:) => a32 !ERROR: Reference to 'y' is ambiguous33 y = 134 contains35 subroutine inner36 p(1) = 0. ! ok - check for regression on contiguous host assoc.37 end subroutine38end39