OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
PR c++/9335
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
arrayio_1.f90
diff --git
a/gcc/testsuite/gfortran.dg/arrayio_1.f90
b/gcc/testsuite/gfortran.dg/arrayio_1.f90
index
2d4cf31
..
7b40d65
100644
(file)
--- a/
gcc/testsuite/gfortran.dg/arrayio_1.f90
+++ b/
gcc/testsuite/gfortran.dg/arrayio_1.f90
@@
-14,11
+14,11
@@
read(r,'(3(2x,i4/)/3(3x,i6/))') i
if (any(i.ne.(/(j,j=1,6)/))) call abort()
do j=1,12
read(r,'(3(2x,i4/)/3(3x,i6/))') i
if (any(i.ne.(/(j,j=1,6)/))) call abort()
do j=1,12
- do k=1,2
- if ((j.gt.8.and.k.eq.1).or.(k.eq.2)) then
- if (r(j,k).ne.'0123456789AB') call abort()
- end if
- end do
+
do k=1,2
+
if ((j.gt.8.and.k.eq.1).or.(k.eq.2)) then
+
if (r(j,k).ne.'0123456789AB') call abort()
+
end if
+
end do
end do
! Write to a portion of a character array
end do
! Write to a portion of a character array