--- a/gcc/testsuite/gfortran.dg/submodule_6.f08	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/submodule_6.f08	Thu Oct 25 10:21:07 2018 +0900
@@ -67,18 +67,18 @@
           type is (t_b)
             this%b = q
           class default
-            call abort
+            STOP 1
          end select
       class default
-        call abort
+        STOP 2
       end select
   end procedure p_a
   module procedure print
     select type (this)
       type is (t_imp)
-        if (any (this%b%i .ne. [3,4,5])) call abort
+        if (any (this%b%i .ne. [3,4,5])) STOP 3
       class default
-        call abort
+        STOP 4
     end select
   end procedure
 end submodule imp_p_a