|
! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
|
|
integer :: x
|
|
!ERROR: The type of 'x' has already been declared
|
|
real :: x
|
|
integer(8) :: i
|
|
parameter(i=1,j=2,k=3)
|
|
integer :: j
|
|
!ERROR: The type of 'k' has already been implicitly declared
|
|
real :: k
|
|
end
|