2010-04-29 Janus Weil <janus@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / dynamic_dispatch_5.f03

diff --git a/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03 b/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03
index 8533508..036c200 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03
+++ b/gcc/testsuite/gfortran.dg/dynamic_dispatch_5.f03
@@ -1,4 +1,4 @@
-! { dg-do compile }
+! { dg-do run }
 ! Tests the fix for PR4164656 in which the call to a%a%scal failed to compile.
 !
 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
@@ -166,7 +166,8 @@ contains
     integer :: err_act
     character(len=20)  :: name='csnmi'
     logical, parameter :: debug=.false.
-    print *, "s_scals"
+!    print *, "s_scals"
+    info = 0
     call a%a%scal(d,info)
     return
   end subroutine s_scals
@@ -180,6 +181,7 @@ end module s_mat_mod
     b%a => c
     a => b
     call a%scal (1.0_spk_, info)
+    if (info .ne. 700) call abort
 end
 ! { dg-final { cleanup-modules "const_mod base_mat_mod s_base_mat_mod s_mat_mod" } }