10 lines
247 B
Fortran
10 lines
247 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
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
|