diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/same_type_as_2.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/same_type_as_2.f03 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/same_type_as_2.f03 b/gcc/testsuite/gfortran.dg/same_type_as_2.f03 index 6fd03117007..3ceb95573eb 100644 --- a/gcc/testsuite/gfortran.dg/same_type_as_2.f03 +++ b/gcc/testsuite/gfortran.dg/same_type_as_2.f03 @@ -23,29 +23,29 @@ l = SAME_TYPE_AS (x1,x1) print *,l - if (.not.l) call abort() + if (.not.l) STOP 1 l = SAME_TYPE_AS (x1,x2) print *,l - if (l) call abort() + if (l) STOP 2 c1 => x1 l = SAME_TYPE_AS (c1,x1) print *,l - if (.not.l) call abort() + if (.not.l) STOP 3 l = SAME_TYPE_AS (c1,x2) print *,l - if (l) call abort() + if (l) STOP 4 c1 => x2 c2 => x2 l = SAME_TYPE_AS (c1,c2) print *,l - if (.not.l) call abort() + if (.not.l) STOP 5 c1 => x1 c2 => x2 l = SAME_TYPE_AS (c1,c2) print *,l - if (l) call abort() + if (l) STOP 6 end |