2007-08-09 Tobias Burnus <burnus@net-b.de>

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

diff --git a/gcc/testsuite/gfortran.dg/fmt_tab_1.f90 b/gcc/testsuite/gfortran.dg/fmt_tab_1.f90
new file mode 100644 (file)
index 0000000..cd95da2
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_tab_1.f90
@@ -0,0 +1,6 @@
+! { dg-do run }
+! PR fortran/32987
+      program TestFormat
+        write (*, 10)
+ 10     format ('Hello ',      'bug!') ! { dg-warning "Extension: Tab character in format" }
+      end