mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 15:46:44 +00:00
29025a0600
Detect and report a bunch of uncaught semantic errors with coarray declarations. Add more tests, and clean up bad usage in existing tests.
33 lines
786 B
Fortran
33 lines
786 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
subroutine s1
|
|
integer :: x(2)
|
|
!ERROR: The dimensions of 'x' have already been declared
|
|
allocatable :: x(:)
|
|
real :: y[1:*]
|
|
!ERROR: The codimensions of 'y' have already been declared
|
|
allocatable :: y[:]
|
|
end
|
|
|
|
subroutine s2
|
|
target :: x(1)
|
|
!ERROR: The dimensions of 'x' have already been declared
|
|
integer :: x(2)
|
|
target :: y[1:*]
|
|
!ERROR: The codimensions of 'y' have already been declared
|
|
integer :: y[2:*]
|
|
end
|
|
|
|
subroutine s3
|
|
save
|
|
dimension :: x(4), x2(8)
|
|
!ERROR: The dimensions of 'x' have already been declared
|
|
allocatable :: x(:)
|
|
codimension :: y[*], y2[1:2,2:*]
|
|
!ERROR: The codimensions of 'y' have already been declared
|
|
allocatable :: y[:]
|
|
end
|
|
|
|
subroutine s4
|
|
integer, dimension(10) :: x(2,2), y
|
|
end
|