flang/test/Semantics/resolve01.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3 integer :: x
   4 !ERROR: The type of 'x' has already been declared
   5 real :: x
   6 integer(8) :: i
   7 parameter(i=1,j=2,k=3)
   8 integer :: j
   9 !ERROR: The type of 'k' has already been implicitly declared
  10 real :: k
  11 end