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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@137950 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e5cd6a3..5c48267 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 5bdcb37..f6c2f84 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" &