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
|
