diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/associated_5.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/associated_5.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/associated_5.f90 b/gcc/testsuite/gfortran.dg/associated_5.f90 index a2007752f3c..d70e5f5a18e 100644 --- a/gcc/testsuite/gfortran.dg/associated_5.f90 +++ b/gcc/testsuite/gfortran.dg/associated_5.f90 @@ -13,7 +13,7 @@ ptr => ILA1 - if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) call abort - if ( .not. ASSOCIATED(ptr) ) call abort + if (ASSOCIATED (ptr, ILA1(NF1:NF2,NF4:NF3) ) ) STOP 1 + if ( .not. ASSOCIATED(ptr) ) STOP 2 END SUBROUTINE |