OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/57093 (Seg fault on internal output to a character scalar coarray)

Browse Source 
2013-04-28  Tobias Burnus  <burnus@net-b.de>

        PR fortran/57093
        * trans-types.c (gfc_get_element_type): Fix handling
        of scalar coarrays of type character.
        * intrinsic.texi (PACK): Add missing ")".

2013-04-28  Tobias Burnus  <burnus@net-b.de>

        PR fortran/57093
        * gfortran.dg/coarray_30.f90: New.

From-SVN: r198379
This commit is contained in:
Tobias Burnus 2013-04-28 21:54:44 +02:00
parent a2f7b4ad34
commit 5e67a36916
5 changed files with 33 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2013-04-28 Tobias Burnus <burnus@net-b.de>
PR fortran/57093
* trans-types.c (gfc_get_element_type): Fix handling
of scalar coarrays of type character.
* intrinsic.texi (PACK): Add missing ")".
2013-04-28 Thomas Koenig <tkoenig@gcc.gnu.org> 2013-04-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/57071 PR fortran/57071
@ -6,9 +13,9 @@
2013-04-25 Janne Blomqvist <jb@gcc.gnu.org> 2013-04-25 Janne Blomqvist <jb@gcc.gnu.org>
PR bootstrap/57028 PR bootstrap/57028
* Make-lang.in (f951): Link in ZLIB. * Make-lang.in (f951): Link in ZLIB.
(CFLAGS-fortran/module.o): Add zlib include directory. (CFLAGS-fortran/module.o): Add zlib include directory.
2013-04-22 Janus Weil <janus@gcc.gnu.org> 2013-04-22 Janus Weil <janus@gcc.gnu.org>

2
gcc/fortran/intrinsic.texi
View File

@ -9619,7 +9619,7 @@ Fortran 95 and later
Transformational function Transformational function
@item @emph{Syntax}: @item @emph{Syntax}:
@code{RESULT = PACK(ARRAY, MASK[,VECTOR]} @code{RESULT = PACK(ARRAY, MASK[,VECTOR])}
@item @emph{Arguments}: @item @emph{Arguments}:
@multitable @columnfractions .15 .70 @multitable @columnfractions .15 .70

2
gcc/fortran/trans-types.c
View File

@ -1179,7 +1179,7 @@ gfc_get_element_type (tree type)
element = TREE_TYPE (element); element = TREE_TYPE (element);
/* For arrays, which are not scalar coarrays. */ /* For arrays, which are not scalar coarrays. */
if (TREE_CODE (element) == ARRAY_TYPE) if (TREE_CODE (element) == ARRAY_TYPE && !TYPE_STRING_FLAG (element))
element = TREE_TYPE (element); element = TREE_TYPE (element);
} }

7
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2013-04-28 Tobias Burnus <burnus@net-b.de>
PR fortran/57093
* gfortran.dg/coarray_30.f90: New.
2013-04-28 Thomas Koenig <tkoenig@gcc.gnu.org> 2013-04-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/57071 PR fortran/57071
@ -43,7 +48,7 @@
2013-04-25 Marek Polacek <polacek@redhat.com> 2013-04-25 Marek Polacek <polacek@redhat.com>
PR tree-optimization/57066 PR tree-optimization/57066
* gcc.dg/torture/builtin-logb-1.c: Adjust testcase. * gcc.dg/torture/builtin-logb-1.c: Adjust testcase.
2013-04-25 James Greenhalgh <james.greenhalgh@arm.com> 2013-04-25 James Greenhalgh <james.greenhalgh@arm.com>
Tejas Belagod <tejas.belagod@arm.com> Tejas Belagod <tejas.belagod@arm.com>

15
gcc/testsuite/gfortran.dg/coarray_30.f90 Normal file
View File

@ -0,0 +1,15 @@
! { dg-do compile }
! { dg-options "-fcoarray=single -fdump-tree-original" }
!
! PR fortran/57093
!
! Contributed by Damian Rouson
!
program main
character(len=25), allocatable :: greeting[:]
allocate(greeting[*])
write(greeting,"(a)") "z"
end
! { dg-final { scan-tree-dump-times "greeting.data = \\(void . restrict\\) __builtin_malloc \\(25\\);" 1 "original" } }
! { dg-final { cleanup-tree-dump "original" } }