diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/deallocate_stat_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/deallocate_stat_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/deallocate_stat_2.f90 b/gcc/testsuite/gfortran.dg/deallocate_stat_2.f90 index e93f446a818..68320e1ccd8 100644 --- a/gcc/testsuite/gfortran.dg/deallocate_stat_2.f90 +++ b/gcc/testsuite/gfortran.dg/deallocate_stat_2.f90 @@ -10,21 +10,21 @@ character(len=200) :: str str = repeat('X', len(str)) deallocate(a, stat=stat, errmsg=str) !print *, stat, trim(str) -if (stat == 0 .or. str /= "Attempt to deallocate an unallocated object") call abort() +if (stat == 0 .or. str /= "Attempt to deallocate an unallocated object") STOP 1 str = repeat('Y', len(str)) deallocate(b, stat=stat, errmsg=str) !print *, stat, trim(str) -if (stat == 0 .or. str /= "Attempt to deallocate an unallocated object") call abort() +if (stat == 0 .or. str /= "Attempt to deallocate an unallocated object") STOP 2 sstr = repeat('Q', len(sstr)) deallocate(a, stat=stat, errmsg=sstr) !print *, stat, trim(sstr) -if (stat == 0 .or. sstr /= "Attem") call abort() +if (stat == 0 .or. sstr /= "Attem") STOP 3 sstr = repeat('P', len(sstr)) deallocate(b, stat=stat, errmsg=sstr) !print *, stat, trim(sstr) -if (stat == 0 .or. sstr /= "Attem") call abort() +if (stat == 0 .or. sstr /= "Attem") STOP 4 end |