gcc/testsuite/gfortran.dg/array_constructor_16.f90

   1 ! { dg-do run }
   2 ! Tests the fix for PR31204, in which 'i' below would be incorrectly
   3 ! host associated by the contained subroutines.  The checks for 'ii'
   4 ! and 'iii' have been added, since they can be host associated because
   5 ! of the explicit declarations in the main program.
   6 !
   7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   8 !
   9   integer ii
  10   INTEGER, PARAMETER :: jmin(1:10) = (/ (i, i = 1, 10) /)
  11   INTEGER, PARAMETER :: kmin(1:10) = (/ (ii, ii = 1, 10) /)
  12   INTEGER, PARAMETER :: lmin(1:10) = (/ (iii, iii = 1, 10) /)
  13   integer iii
  14   CALL two
  15
  16 CONTAINS
  17
  18   SUBROUTINE one
  19     i = 99
  20     ii = 99
  21     iii = 999
  22   END SUBROUTINE
  23
  24   SUBROUTINE two
  25     i = 0
  26     ii = 0
  27     iii = 0
  28     CALL one
  29     IF (i .NE. 0) CALL ABORT ()
  30     IF (ii .NE. 99) CALL ABORT ()
  31     IF (iii .NE. 999) CALL ABORT ()
  32   END SUBROUTINE
  33 END
  34