gcc/fortran/
2014-06-23 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_trans_deferred_vars): Fix handling of
explicit-size arrays with -fcoarray=lib.
gcc/testsuite/
2014-06-23 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/coarray_32.f90: New.
From-SVN: r211907
+2014-06-23 Tobias Burnus <burnus@net-b.de>
+
+ * trans-decl.c (gfc_trans_deferred_vars): Fix handling of
+ explicit-size arrays with -fcoarray=lib.
+
2014-06-20 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/33363
NULL_TREE);
continue;
}
- else if (gfc_option.coarray != GFC_FCOARRAY_LIB)
+ else
{
gfc_save_backend_locus (&loc);
gfc_set_backend_locus (&sym->declared_at);
+2014-06-23 Tobias Burnus <burnus@net-b.de>
+
+ * gfortran.dg/coarray_32.f90: New.
+
2014-06-23 Paolo Carlini <paolo.carlini@oracle.com>
DR 577
--- /dev/null
+! { dg-do compile }
+! { dg-options "-fdump-tree-original -fcoarray=lib" }
+!
+ real, allocatable :: values(:)[:]
+ allocate(values(1024)[*])
+ call laplacian(values)
+contains
+ subroutine laplacian(rhs)
+ real, allocatable :: rhs(:)[:]
+ real :: local_laplacian(size(rhs))
+ local_laplacian=0.
+ end subroutine
+end
+
+! { dg-final { scan-tree-dump-times "ubound.. = " 1 "original" } }
+! { dg-final { scan-tree-dump-times "size.. = " 2 "original" } }
+! { dg-final { cleanup-tree-dump "original" } }
+