OSDN Git Service

2007-12-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / optional_dim_2.f90
index bb25201..41cbbf5 100644 (file)
@@ -19,6 +19,6 @@ contains
    lotto = eoshift((/.true.,.true.,.true.,.true./),1,boundary=bound,dim=dimmy)
    lotto = eoshift(lotto,1,dim=dimmy)
    write(testbuf,*) lotto
-   if (trim(testbuf).ne." T T F F") print *, testbuf
+   if (trim(testbuf).ne." T T F F") call abort
  end subroutine
 end program test
\ No newline at end of file