parameter_array_init_4.f90: Silence pedantic warning.
authorTobias Burnus <burnus@net-b.de>
Fri, 18 Jul 2008 13:20:35 +0000 (15:20 +0200)
committerTobias Burnus <burnus@gcc.gnu.org>
Fri, 18 Jul 2008 13:20:35 +0000 (15:20 +0200)
2008-07-18  Tobias Burnus  <burnus@net-b.de>

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

From-SVN: r137950

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/parameter_array_init_4.f90

index e5cd6a37c175eb9aa055b6326cd294f93a718c76..5c48267b5fa9e20134f09959b7d6c89f2549b9e9 100644 (file)
@@ -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 ...
index 5bdcb3723b1a10846a2951cd8fe7a975c5e5796f..f6c2f84b2a81d47d572477a6123340908438b18a 100644 (file)
@@ -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" &