X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg77.dg%2Ff77-edit-i-out.f;fp=gcc%2Ftestsuite%2Fg77.dg%2Ff77-edit-i-out.f;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=9887704c716febe304c49589a4416682a1cfdf09;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/testsuite/g77.dg/f77-edit-i-out.f b/gcc/testsuite/g77.dg/f77-edit-i-out.f deleted file mode 100644 index 9887704c..00000000 --- a/gcc/testsuite/g77.dg/f77-edit-i-out.f +++ /dev/null @@ -1,26 +0,0 @@ -C Test Fortran 77 I edit descriptor for output -C (ANSI X3.9-1978 Section 13.5.9.1) -C -C Origin: David Billinghurst -C -C { dg-do run } -C { dg-output "^" } - - write(*,'(I1)') 1 ! { dg-output "1(\n|\r\n|\r)" } - write(*,'(I1)') -1 ! { dg-output "\\*(\n|\r\n|\r)" } - write(*,'(I2)') 2 ! { dg-output " 2(\n|\r\n|\r)" } - write(*,'(I2)') -2 ! { dg-output "-2(\n|\r\n|\r)" } - write(*,'(I3)') 3 ! { dg-output " 3(\n|\r\n|\r)" } - write(*,'(I3)') -3 ! { dg-output " -3(\n|\r\n|\r)" } - - write(*,'(I2.0)') 0 ! { dg-output " (\n|\r\n|\r)" } - write(*,'(I1.1)') 4 ! { dg-output "4(\n|\r\n|\r)" } - write(*,'(I1.1)') -4 ! { dg-output "\\*(\n|\r\n|\r)" } - write(*,'(I2.1)') 5 ! { dg-output " 5(\n|\r\n|\r)" } - write(*,'(I2.1)') -5 ! { dg-output "-5(\n|\r\n|\r)" } - write(*,'(I2.2)') 6 ! { dg-output "06(\n|\r\n|\r)" } - write(*,'(I2.2)') -6 ! { dg-output "\\*\\*(\n|\r\n|\r)" } - write(*,'(I3.2)') 7 ! { dg-output " 07(\n|\r\n|\r)" } - write(*,'(I3.2)') -7 ! { dg-output "-07(\n|\r\n|\r)" } - - end