diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_initialiser_actual.f90 | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e67254d..a63ed7c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2010-11-11 Jakub Jelinek <jakub@redhat.com> + Tobias Burnus <burnus@net-b.de> + + PR fortran/46325 + * gfortran.dg/char_initialiser_actual.f90: Make test case valid. + 2010-11-11 Jan Hubicka <jh@suse.cz> * gcc.dg/20081223-1.c: Update LTO options. diff --git a/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90 b/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90 index d123aca..dbd7890 100644 --- a/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90 +++ b/gcc/testsuite/gfortran.dg/char_initialiser_actual.f90 @@ -24,6 +24,7 @@ contains function pfoo(ch2) character*5, dimension(:), target :: ch2 character*5, dimension(:), pointer :: pfoo - pfoo => ch2 + allocate(pfoo(size(ch2))) + pfoo = ch2 end function pfoo end program |