--- Comment #9 from dfranke at gcc dot gnu dot org 2007-06-27 20:04 ---
Fixed in trunk. Not a regression, thus no backport to 4.2. Closing.
--
dfranke at gcc dot gnu dot org changed:
What|Removed |Added
-
--- Comment #8 from dfranke at gcc dot gnu dot org 2007-06-27 20:03 ---
Subject: Bug 32467
Author: dfranke
Date: Wed Jun 27 20:02:31 2007
New Revision: 126063
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=126063
Log:
gcc/fortran:
2007-06-24 Daniel Franke <[EMAIL PROTECTED]>
--- Comment #7 from longb at cray dot com 2007-06-26 18:20 ---
Subject: Re: structure containing allocatable array is
accepted in COPYIN clause
burnus at gcc dot gnu dot org wrote:
> --- Comment #4 from burnus at gcc dot gnu dot org 2007-06-22 21:06
> ---
> Thanks for the re
--- Comment #6 from dfranke at gcc dot gnu dot org 2007-06-25 18:51 ---
Updated patch:
http://gcc.gnu.org/ml/gcc-patches/2007-06/msg01858.html
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32467
--- Comment #5 from patchapp at dberlin dot org 2007-06-24 18:40 ---
Subject: Bug number PR32467
A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2007-06/msg01809.html
--
http://gcc.gnu.org/bugzilla/sh
--- Comment #4 from burnus at gcc dot gnu dot org 2007-06-22 21:06 ---
Thanks for the report.
(By the way, ifort does accept the program and gives the right result whereas
sunf95 has the same problem as gfortran.)
There are actually two problems:
a) "Allocatable arrays may not appear
--- Comment #3 from dfranke at gcc dot gnu dot org 2007-06-22 20:42 ---
Mine. Fix should be easy :)
--
dfranke at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #2 from dfranke at gcc dot gnu dot org 2007-06-22 20:38 ---
Barf. The testcase in comment #1 is detected by gfortran-svn (20070522), the
original testcase (allocatable structure components) is not.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32467
--- Comment #1 from dfranke at gcc dot gnu dot org 2007-06-22 20:28 ---
Reduced testcase:
$> cat pr32467.f90
use omp_lib
integer, save, allocatable :: a(:)
!$omp threadprivate(a)
allocate(a(2))
a = 1
!$omp parallel copyin(a)
print *, a(1)
!$omp end parallel
deallocate(a)
end
This code