diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com.au> | 2000-07-12 13:12:14 -0600 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 2000-07-12 13:12:14 -0600 |
| commit | 26e983092ec8104f0334c2f45ea4fc1e9a8d2319 (patch) | |
| tree | fc1617602f7a5c4782016d6d97997c41b33b934b /gcc | |
| parent | a592f28872ebaa224f90063414470bc92f4639c9 (diff) | |
| download | gcc-26e983092ec8104f0334c2f45ea4fc1e9a8d2319.zip gcc-26e983092ec8104f0334c2f45ea4fc1e9a8d2319.tar.gz gcc-26e983092ec8104f0334c2f45ea4fc1e9a8d2319.tar.bz2 | |
20000630-2.f: New test.
* g77.f-torture/compile/20000630-2.f: New test.
* g77.f-torture/compile/20000630-2.x
From-SVN: r34992
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20000630-2.f | 9 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20000630-2.x | 2 |
3 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3107e2a..e915fd2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2000-07-12 David Billinghurst <David Billinghurst@riotinto.com.au> + + * g77.f-torture/compile/20000630-2.f: New test. + * g77.f-torture/compile/20000630-2.x + 2000-07-11 David Billinghurst <David.Billinghurst@riotinto.com.au> * g77.f-torture/execute/20000503-1.x: Delete. Test now passes. diff --git a/gcc/testsuite/g77.f-torture/compile/20000630-2.f b/gcc/testsuite/g77.f-torture/compile/20000630-2.f new file mode 100644 index 0000000..623a29a --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20000630-2.f @@ -0,0 +1,9 @@ + SUBROUTINE CHOUT(CHR,ICNT) +C ICE: failed assertion `expr != NULL' +C Reduced version of GNATS PR fortran/329 from trond.bo@dnmi.no + INTEGER CHR(ICNT) + CHARACTER*255 BUF + BUF(1:1)=CHAR(CHR(1)) + CALL FPUTC(1,BUF(1:1)) + RETURN + END diff --git a/gcc/testsuite/g77.f-torture/compile/20000630-2.x b/gcc/testsuite/g77.f-torture/compile/20000630-2.x new file mode 100644 index 0000000..f41cdc2 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20000630-2.x @@ -0,0 +1,2 @@ +set torture_compile_xfail "*-*-*" +return 0 |