blob: 2d87680b5abf7c886337662ea60705af8bb2950a [file] [log] [blame]
! { 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) STOP 1
IF (ii .NE. 99) STOP 2
IF (iii .NE. 999) STOP 3
END SUBROUTINE
END