flang/test/Semantics/resolve01.f90

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