diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 index 31803453c54..32fb1d824e9 100644 --- a/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 +++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_45.f90 @@ -43,7 +43,7 @@ end allocate (template) allocate (template%rng) template%obs1_int => cos - if (abs (template%obs1_int (arg) - cos (arg)) .gt. 1e-4) call abort + if (abs (template%obs1_int (arg) - cos (arg)) .gt. 1e-4) STOP 1 allocate (object, source = template) - if (abs (object%obs1_int (arg) - cos (arg)) .gt. 1e-4) call abort + if (abs (object%obs1_int (arg) - cos (arg)) .gt. 1e-4) STOP 2 end |