diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/generic_15.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/generic_15.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/generic_15.f90 b/gcc/testsuite/gfortran.dg/generic_15.f90 index 179d04a53cc..73ca4060158 100644 --- a/gcc/testsuite/gfortran.dg/generic_15.f90 +++ b/gcc/testsuite/gfortran.dg/generic_15.f90 @@ -37,7 +37,7 @@ PROGRAM main CHARACTER(14) :: cname CHARACTER(14) :: cnames(1) CALL odfname(base,i,cname) - if (trim (cname) .ne. "odfamilycname") call abort + if (trim (cname) .ne. "odfamilycname") STOP 1 CALL odfname(base,i,cnames) - if (trim (cnames(1)) .ne. "odfamilycnames") call abort + if (trim (cnames(1)) .ne. "odfamilycnames") STOP 2 END PROGRAM |