OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* gcc.dg/20020919-1.c: Correct target selector to alpha*-*-*.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
save_2.f90
1
! PR fortran/28415
2
! { dg-do run }
3
! { dg-options "-O2 -fno-automatic" }
4
5
program foo
6
integer arrlen
7
arrlen = 30
8
call bar(arrlen)
9
stop
10
end
11
12
subroutine bar(arg)
13
integer arg
14
double precision arr(arg)
15
do i = 1, arg
16
arr(i) = 1.0d0
17
enddo
18
do i = 1, arg
19
write(*,*) i, arr(i)
20
enddo
21
return
22
end