diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-04-19 21:52:11 +0000 |
|---|---|---|
| committer | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-04-19 21:52:11 +0000 |
| commit | ee4e168eeaceef956e8b7deaf8f1c54669d8fa1a (patch) | |
| tree | f2b47da1e141d75afa4fde6ae6f4eba59d7bd607 /gcc/testsuite/g77.f-torture | |
| parent | 4384a140786cdf53933a9304085197c924cdd800 (diff) | |
2002-04-19 Toon Moene <toon@moene.indiv.nluug.nl>
* PR6367
* g77.f-torture/execute/6367.f: New test.
* g77.f-torture/execute/6367.x: Disable for MMIX.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@52540 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/6367.f | 16 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/6367.x | 8 |
2 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/6367.f b/gcc/testsuite/g77.f-torture/execute/6367.f new file mode 100644 index 00000000000..158bddf8f47 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/6367.f @@ -0,0 +1,16 @@ + program testnl + character*80 line + dimension a(10),b(10) + namelist /nl/ a + data a / 10 * 0.0 / + data b / 0., 1., 1., 1., 2., 2., 3., 3., 3., 0. / + data line /'&nl a(2) = 3*1.0, 2*2.0, 3*3.0 /'/ + open(1,status='scratch') + write(1,'(a)') line + rewind(1) + read(1,nl) + close(1) + do i = 1, 10 + if (a(i) .ne. b(i)) call abort + enddo + end diff --git a/gcc/testsuite/g77.f-torture/execute/6367.x b/gcc/testsuite/g77.f-torture/execute/6367.x new file mode 100644 index 00000000000..027dcb5ccae --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/6367.x @@ -0,0 +1,8 @@ +# Scratch files aren't implemented for mmixware +# (_stat is a stub and files can't be deleted). + +if { [istarget "mmix-knuth-mmixware"] } { + set torture_execute_xfail "mmix-knuth-mmixware" +} + +return 0 |