Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/array_5.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR fortran/54166
kono
parents:
diff changeset
4 ! There was an ICE while chosing the bounds to scalarize the FAIL line.
kono
parents:
diff changeset
5 !
kono
parents:
diff changeset
6 ! Contributed by Koen Poppe <koen.poppe@cs.kuleuven.be>
kono
parents:
diff changeset
7 !
kono
parents:
diff changeset
8
kono
parents:
diff changeset
9 module ds_routines
kono
parents:
diff changeset
10 contains
kono
parents:
diff changeset
11 subroutine dsget(vertic,rstore)
kono
parents:
diff changeset
12 real, dimension(:), intent(in out) :: rstore
kono
parents:
diff changeset
13 real, dimension(:,:), intent(out) :: vertic
kono
parents:
diff changeset
14 integer :: nrvert,point
kono
parents:
diff changeset
15 nrvert = 4
kono
parents:
diff changeset
16 point = 26
kono
parents:
diff changeset
17 vertic(1,1:nrvert) = rstore(point+1:point+nrvert) ! FAIL
kono
parents:
diff changeset
18 end subroutine dsget
kono
parents:
diff changeset
19 end module ds_routines
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 program ds_routines_program
kono
parents:
diff changeset
22 use ds_routines
kono
parents:
diff changeset
23 print *, "ok"
kono
parents:
diff changeset
24 end program ds_routines_program