diff options
| author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-07-12 19:12:14 +0000 |
|---|---|---|
| committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-07-12 19:12:14 +0000 |
| commit | 60e3bec03e167d7659aec52ceba60bf37dc3e367 (patch) | |
| tree | fc1617602f7a5c4782016d6d97997c41b33b934b | |
| parent | f30669db475a571e68ea39bf9a760d20054ae6bd (diff) | |
| download | ppe42-gcc-60e3bec03e167d7659aec52ceba60bf37dc3e367.tar.gz ppe42-gcc-60e3bec03e167d7659aec52ceba60bf37dc3e367.zip | |
* g77.f-torture/compile/20000630-2.f: New test.
* g77.f-torture/compile/20000630-2.x
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@34992 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 3107e2aa407..e915fd28a73 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 00000000000..623a29a9679 --- /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 00000000000..f41cdc29913 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20000630-2.x @@ -0,0 +1,2 @@ +set torture_compile_xfail "*-*-*" +return 0 |
