Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(901)

Issues Search
    My Issues | Starred     Open | Closed | All

Side by Side Diff: gcc/gcc/testsuite/gfortran.dg/slash_1.f90

Issue 3050029: [gcc] GCC 4.5.0=>4.5.1 (Closed) Base URL: ssh://git@gitrw.chromium.org:9222/nacl-toolchain.git
Patch Set: Created 10 years, 4 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View unified diff | Download patch | Annotate | Revision Log
« no previous file with comments | « gcc/gcc/testsuite/gfortran.dg/selected_char_kind_3.f90 ('k') | gcc/gcc/testsuite/gfortran.dg/stat_1.f90 » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
OLDNEW
1 ! PR libfortran/22170 1 ! PR libfortran/22170
2 ! { dg-do run { target fd_truncate } } 2 ! { dg-do run }
3 integer i 3 integer i
4 open (10,status='scratch') 4 open (10,status='scratch')
5 write (10,'(A,2/,A)') '12', '17' 5 write (10,'(A,2/,A)') '12', '17'
6 rewind (10) 6 rewind (10)
7 read (10,'(I2)') i 7 read (10,'(I2)') i
8 if (i /= 12) call abort 8 if (i /= 12) call abort
9 read (10,'(I2)') i 9 read (10,'(I2)') i
10 if (i /= 0) call abort 10 if (i /= 0) call abort
11 read (10,'(I2)') i 11 read (10,'(I2)') i
12 if (i /= 17) call abort 12 if (i /= 17) call abort
13 end 13 end
OLDNEW
« no previous file with comments | « gcc/gcc/testsuite/gfortran.dg/selected_char_kind_3.f90 ('k') | gcc/gcc/testsuite/gfortran.dg/stat_1.f90 » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698