procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

parameter_array_init_4.f90: Silence pedantic warning.

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

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

From-SVN: r137950
This commit is contained in:
Tobias Burnus 2008-07-18 15:20:35 +02:00 • committed by Tobias Burnus
parent 4b043b8de5
commit 0234a95444
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View 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 ...

8
gcc/testsuite/gfortran.dg/parameter_array_init_4.f90
View 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" &