parameter_array_init_4.f90: Silence pedantic warning.

2008-07-18  Tobias Burnus  <burnus@net-b.de>

       * gfortran.dg/parameter_array_init_4.f90: Silence pedantic warning.

From-SVN: r137950

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e5cd6a37c175eb9aa055b6326cd294f93a718c76..5c48267b5fa9e20134f09959b7d6c89f2549b9e9 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-18  Tobias Burnus  <burnus@net-b.de>
+
+       * gfortran.dg/parameter_array_init_4.f90: Silence pedantic warning.
+
 2008-07-17  Olivier Hainque  <hainque@adacore.com>
 
        * gnat.dg/tree_static_def.ad[bs]: Support for ...

diff --git a/gcc/testsuite/gfortran.dg/parameter_array_init_4.f90 b/gcc/testsuite/gfortran.dg/parameter_array_init_4.f90
index 5bdcb3723b1a10846a2951cd8fe7a975c5e5796f..f6c2f84b2a81d47d572477a6123340908438b18a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/parameter_array_init_4.f90
+++ b/gcc/testsuite/gfortran.dg/parameter_array_init_4.f90
@@ -15,10 +15,10 @@ character(kind=1,len=*), parameter :: str1(2) = [ 1_'Ac',1_'cc']
 character(kind=1,len=*), parameter :: str_s1 = 'Acc'
 
 CHARACTER (kind=4,len=*) MY_STRING4(1:3), my_string_s4
-PARAMETER ( MY_STRING4 = (/ "A" , "B", "C" /) )
-PARAMETER ( MY_STRING_S4 = "AB C" )
-character(kind=4,len=*), parameter :: str4(2) = [ 1_'Ac',1_'cc']
-character(kind=4,len=*), parameter :: str_s4 = 'Acc'
+PARAMETER ( MY_STRING4 = (/ 4_"A" , 4_"B", 4_"C" /) )
+PARAMETER ( MY_STRING_S4 = 4_"AB C" )
+character(kind=4,len=*), parameter :: str4(2) = [ 4_'Ac',4_'cc']
+character(kind=4,len=*), parameter :: str_s4 = 4_'Acc'
 
 if(len(MY_STRING)   /= 1) call abort()
 if(    MY_STRING(1) /= "A" &