gcc/testsuite/gfortran.dg/host_dummy_index_1.f90

   1 ! { dg-do run }
   2 ! Tests the fix for PR23446. Based on PR example.
   3 !
   4 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   5 !
   6 PROGRAM TST
   7   INTEGER IMAX
   8   INTEGER :: A(4) = 1
   9   IMAX=2
  10
  11   CALL S(A)
  12   CALL T(A)
  13   CALL U(A)
  14   if ( ALL(A.ne.(/2,2,3,4/))) CALL ABORT ()
  15
  16 CONTAINS
  17   SUBROUTINE S(A)
  18     INTEGER A(IMAX)
  19     a = 2
  20   END SUBROUTINE S
  21   SUBROUTINE T(A)
  22     INTEGER A(3:IMAX+4)
  23     A(5:IMAX+4) = 3
  24   END SUBROUTINE T
  25   SUBROUTINE U(A)
  26     INTEGER A(2,IMAX)
  27     A(2,2) = 4
  28   END SUBROUTINE U
  29 ENDPROGRAM TST