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
PR testsuite/35406
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
array_function_1.f90
1
! { dg-do run }
2
! PR fortran/30720
3
program array_function_1
4
integer :: a(5), b, l, u
5
l = 4
6
u = 2
7
8
a = (/ 1, 2, 3, 4, 5 /)
9
10
b = f(a(l:u) - 2)
11
if (b /= 0) call abort
12
13
b = f(a(4:2) - 2)
14
if (b /= 0) call abort
15
16
b = f(a(u:l) - 2)
17
if (b /= 3) call abort
18
19
b = f(a(2:4) - 2)
20
if (b /= 3) call abort
21
22
contains
23
integer function f(x)
24
integer, dimension(:), intent(in) :: x
25
f = sum(x)
26
end function
27
end program