33 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine s13 integer :: x(2)4 !ERROR: The dimensions of 'x' have already been declared5 allocatable :: x(:)6 real :: y[1:*]7 !ERROR: The codimensions of 'y' have already been declared8 allocatable :: y[:]9end10 11subroutine s212 target :: x(1)13 !ERROR: The dimensions of 'x' have already been declared14 integer :: x(2)15 target :: y[1:*]16 !ERROR: The codimensions of 'y' have already been declared17 integer :: y[2:*]18end19 20subroutine s321 save22 dimension :: x(4), x2(8)23 !ERROR: The dimensions of 'x' have already been declared24 allocatable :: x(:)25 codimension :: y[*], y2[1:2,2:*]26 !ERROR: The codimensions of 'y' have already been declared27 allocatable :: y[:]28end29 30subroutine s431 integer, dimension(10) :: x(2,2), y32end33