diff options
| author | no-author <no-author@gcc.gnu.org> | 2003-05-07 13:37:26 +0000 |
|---|---|---|
| committer | no-author <no-author@gcc.gnu.org> | 2003-05-07 13:37:26 +0000 |
| commit | c7a18b2e3e4556a640a430a2493a15ae62334c05 (patch) | |
| tree | 44b4359c9ff9e4465f3ac9f2d302135efe2109d5 /gcc/testsuite/g77.f-torture | |
| parent | b55b798f63ed0d6fbf72971296cb45935b7dc3d6 (diff) | |
This commit was manufactured by cvs2svn to create branch
'tree-ssa-20020619-branch'.
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/tree-ssa-20020619-branch@66558 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/1832.f | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/noncompile/9263.f | 7 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/1832.f b/gcc/testsuite/g77.f-torture/execute/1832.f new file mode 100644 index 00000000000..9ae1ca9fb27 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/1832.f @@ -0,0 +1,8 @@ + character*120 file + character*5 string + file = "c:/dos/adir/bdir/cdir/text.doc" + write(string, *) "a ", file + if (string .ne. ' a') call abort +C-- The leading space is normal for list-directed output +C-- "file" is not printed because it would overflow "string". + end diff --git a/gcc/testsuite/g77.f-torture/noncompile/9263.f b/gcc/testsuite/g77.f-torture/noncompile/9263.f new file mode 100644 index 00000000000..e68b3e0a65f --- /dev/null +++ b/gcc/testsuite/g77.f-torture/noncompile/9263.f @@ -0,0 +1,7 @@ + PARAMETER (Q=1) + PARAMETER (P=10) + INTEGER C(10),D(10),E(10),F(10) + DATA (C(I),I=1,P) /10*10/ ! TERMINAL NOT INTEGER + DATA (D(I),I=Q,10) /10*10/ ! START NOT INTEGER + DATA (E(I),I=1,10,Q) /10*10/ ! INCREMENT NOT INTEGER + END |