flang/test/Semantics/resolve14.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 module m1
   4   integer :: x
   5   integer :: y
   6   integer :: z
   7   integer, parameter :: k1 = selected_int_kind(9)
   8 end
   9 module m2
  10   real :: y
  11   real :: z
  12   real :: w
  13   integer, parameter :: k2 = selected_int_kind(9)
  14 end
  15
  16 program p1
  17   use m1
  18   use m2
  19   ! check that selected_int_kind is not use-associated
  20   integer, parameter :: k = selected_int_kind(9)
  21 end
  22
  23 program p2
  24   use m1, xx => x, y => z
  25   use m2
  26   volatile w
  27   !ERROR: Cannot change CONTIGUOUS attribute on use-associated 'w'
  28   contiguous w
  29   !ERROR: 'z' is use-associated from module 'm2' and cannot be re-declared
  30   integer z
  31   !ERROR: Reference to 'y' is ambiguous
  32   y = 1
  33 end