blob: b1730f2699abe1773fcf3d812603f5c0fd4494f3 (
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
35
36
37
38
|
! PR Fortran/71523
!
! { dg-do run }
! { dg-options "-finit-integer=12345 -fautomatic -fmax-stack-var-size=8" }
!
! Make sure that variables larger than max-stack-var-size become
! static and are given the correct _static_ initializer.
!
function set(idx, val)
implicit none
integer, intent(in) :: idx, val
integer set
integer arr(100)
set = arr(idx)
arr(idx) = val
return
end function
integer set, val
val = set(1, 5)
if (val .ne. 12345) then
STOP 1
endif
val = set(1, 10)
if (val .ne. 5) then
STOP 2
endif
val = set(1, 100)
if (val .ne. 10) then
STOP 3
endif
end
|
