diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-07-18 15:20:35 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-07-18 15:20:35 +0200 |
| commit | 0234a95444a38890d45228643948712d6f53f202 (patch) | |
| tree | 2a9e07494f6073ed745df33a19bd16c1e4bf4df1 /gcc | |
| parent | 4b043b8de578105d61090e36662e4db18a78cdcc (diff) | |
| download | gcc-0234a95444a38890d45228643948712d6f53f202.zip gcc-0234a95444a38890d45228643948712d6f53f202.tar.gz gcc-0234a95444a38890d45228643948712d6f53f202.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/parameter_array_init_4.f90 | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e5cd6a3..5c48267 100644 --- 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 --- 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" & |