PR libfortran/20006

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

diff --git a/gcc/testsuite/gfortran.dg/data_char_1.f90 b/gcc/testsuite/gfortran.dg/data_char_1.f90
index a2acf1e..cce31af 100644 (file)
--- a/gcc/testsuite/gfortran.dg/data_char_1.f90
+++ b/gcc/testsuite/gfortran.dg/data_char_1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Test character variables in data statements
 ! Also substrings of cahracter variables.
 ! PR14976 PR16228 
@@ -8,5 +9,5 @@ program data_char_1
   data b(:)(1:4), b(1)(5:5), b(2)(5:5) /'abcdefg', 'hi', 'j', 'k'/
   
   if ((a(1) .ne. 'Hello') .or. (a(2) .ne. 'orld ')) call abort
-  if ((b(1) .ne. 'adcdl') .or. (b(2) .ne. 'hi  l')) call abort
+  if ((b(1) .ne. 'abcdj') .or. (b(2) .ne. 'hi  k')) call abort
 end program