|
! RUN: %S/test_errors.sh %s %t %flang_fc1
|
|
! REQUIRES: shell
|
|
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
|