diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pdt_23.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pdt_23.f03 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/pdt_23.f03 b/gcc/testsuite/gfortran.dg/pdt_23.f03 index 045b68db3db..b2156b9ce6e 100644 --- a/gcc/testsuite/gfortran.dg/pdt_23.f03 +++ b/gcc/testsuite/gfortran.dg/pdt_23.f03 @@ -18,16 +18,16 @@ program p x = t(2,'ab') write (buffer, *) x%c ! Tests the fix for PR82720 read (buffer, *) chr - if (trim (chr) .ne. 'ab') call abort + if (trim (chr) .ne. 'ab') STOP 1 x = t(3,'xyz') - if (len (x%c) .ne. 3) call abort + if (len (x%c) .ne. 3) STOP 2 write (buffer, *) x ! Tests the fix for PR82719 read (buffer, *) i, chr - if (i .ne. 3) call abort - if (chr .ne. 'xyz') call abort + if (i .ne. 3) STOP 3 + if (chr .ne. 'xyz') STOP 4 buffer = " 3 lmn" read (buffer, *) x ! Some thought will be needed for PDT reads. - if (x%c .ne. 'lmn') call abort + if (x%c .ne. 'lmn') STOP 5 end |