OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

20001201.f: New test. 

2000-12-01  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/execute/20001201.f: New test.

From-SVN: r37925
This commit is contained in:
Toon Moene 2000-12-01 22:25:11 +01:00 committed by Toon Moene
parent c1428b5362
commit 042db57ecf
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2000-12-01 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/20001201.f: New test.
2000-12-01 Joseph S. Myers <jsm28@cam.ac.uk>
* gcc.dg/c99-array-nonobj-1.c: No longer XFAIL.

12
gcc/testsuite/g77.f-torture/execute/20001201.f Normal file
View File

@ -0,0 +1,12 @@
LOGICAL TF(5)
CHARACTER*60 LINE
NAMELIST /LIST/ TF,TT,FF,XYZ
DATA TF /5*.FALSE./
DATA LINE /'&LIST,TF=.T.,.F.,.T.,FF=33.,TT=23.,XYZ=-1234.55,/'/
OPEN(1,STATUS='SCRATCH')
WRITE(1,*) LINE
REWIND(1)
READ(1,LIST)
CLOSE(1)
IF (TF(5)) CALL ABORT
END