diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/extends_1.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/extends_1.f03 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/extends_1.f03 b/gcc/testsuite/gfortran.dg/extends_1.f03 index bb01728a5e7..84e408c292a 100644 --- a/gcc/testsuite/gfortran.dg/extends_1.f03 +++ b/gcc/testsuite/gfortran.dg/extends_1.f03 @@ -43,10 +43,10 @@ end module person_education recruit => entry ("John Smith", 123456, 1, "Bog Hill High School", & 99, "Records", supervisor) - if (trim (recruit%name) /= "John Smith") call abort - if (recruit%name /= recruit%service%name) call abort - if (recruit%supervisor%ss /= 123455) call abort - if (recruit%supervisor%ss /= supervisor%person%ss) call abort + if (trim (recruit%name) /= "John Smith") STOP 1 + if (recruit%name /= recruit%service%name) STOP 2 + if (recruit%supervisor%ss /= 123455) STOP 3 + if (recruit%supervisor%ss /= supervisor%person%ss) STOP 4 deallocate (supervisor) deallocate (recruit) |