2010-07-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / runtime_warning_1.f90

diff --git a/gcc/testsuite/gfortran.dg/runtime_warning_1.f90 b/gcc/testsuite/gfortran.dg/runtime_warning_1.f90
index 6af85c3..163a812 100644 (file)
--- a/gcc/testsuite/gfortran.dg/runtime_warning_1.f90
+++ b/gcc/testsuite/gfortran.dg/runtime_warning_1.f90
@@ -5,7 +5,7 @@
 ! { dg-options "-pedantic" }
 ! { dg-do run }
 !
 ! { dg-options "-pedantic" }
 ! { dg-do run }
 !

-     character*5 c
+     character(5) c

      open (42,status='scratch')
      write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }
      write (42,'(A)') 'de'
      open (42,status='scratch')
      write (42,'(A,$)') 'abc' ! { dg-warning ".*descriptor" "" }
      write (42,'(A)') 'de'


@@ -14,4 +14,4 @@
      close (42)
      if (c /= 'abcde') call abort ()
      end
      close (42)
      if (c /= 'abcde') call abort ()
      end

-! { dg-warning ".*descriptor" "" 10}
+! { dg-warning ".*descriptor" "" 10 }