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

CONTAINS

  SUBROUTINE one
    i = 99
    ii = 99
    iii = 999
  END SUBROUTINE

  SUBROUTINE two
    i = 0
    ii = 0
    iii = 0
    CALL one
    IF (i .NE. 0) CALL ABORT ()
    IF (ii .NE. 99) CALL ABORT ()
    IF (iii .NE. 999) CALL ABORT ()
  END SUBROUTINE
END