gcc/gcc/testsuite/gfortran.dg/pr19467.f90 - Issue 3050029: [gcc] GCC 4.5.0=>4.5.1

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: gcc/gcc/testsuite/gfortran.dg/pr19467.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:

OLD	NEW
1 ! { dg-do run { target fd_truncate } }	1 ! { dg-do run }

2 ! pr 19467	2 ! pr 19467

3 ! test namelist with character arrays	3 ! test namelist with character arrays

4 ! Based on example provided by paulthomas2@wanadoo.fr	4 ! Based on example provided by paulthomas2@wanadoo.fr

5	5

6 program pr19467	6 program pr19467

7 implicit none	7 implicit none

8 integer :: ier	8 integer :: ier

9 character(len=2) :: ch(2)	9 character(len=2) :: ch(2)

10 character(len=2) :: dh(2)=(/"aa","bb"/)	10 character(len=2) :: dh(2)=(/"aa","bb"/)

11 namelist /a/ ch	11 namelist /a/ ch

12 open (10, status = "scratch")	12 open (10, status = "scratch")

13 write (10, *) "&A ch = 'aa' , 'bb' /"	13 write (10, *) "&A ch = 'aa' , 'bb' /"

14 rewind (10)	14 rewind (10)

15 READ (10,nml=a, iostat = ier)	15 READ (10,nml=a, iostat = ier)

16 close (10)	16 close (10)

17 if ((ier /= 0) .or. (any (ch /= dh))) call abort ()	17 if ((ier /= 0) .or. (any (ch /= dh))) call abort ()

18 end program pr19467	18 end program pr19467

OLD	NEW

« no previous file with comments | « gcc/gcc/testsuite/gfortran.dg/pr18210.f90 ('k') | gcc/gcc/testsuite/gfortran.dg/pr19657.f » ('j') | no next file with comments »