http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52403
Bug #: 52403
Summary: coarray component gives error with CLASS( )
declaration
Classification: Unclassified
Product: gcc
Version: 4.6.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassig...@gcc.gnu.org
ReportedBy: lo...@cray.com
Possible another case that needs to be considered in Bug 52052
> cat test.f90
module m_coarray
implicit none
private
type, public :: coarray_t
integer, allocatable, private :: value(:)[:]
contains
procedure :: allocate_myCoarray => allocate_myCoarray_sub
end type
contains
subroutine allocate_myCoarray_sub(this)
class(coarray_t), intent(inout) :: this
allocate( this%value(num_images())[*] )
end subroutine
end module
!===============================================================================
program main
use m_coarray
implicit none
type(coarray_t) :: caf
end program
> ftn -fcoarray=single test.f90
test.f90:14.43:
class(coarray_t), intent(inout) :: this
1
Error: Component '_data' at (1) with coarray component shall be a nonpointer,
nonallocatable scalar
test.f90:14.43:
class(coarray_t), intent(inout) :: this
1
Error: Component '_def_init' at (1) with coarray component shall be a
nonpointer, nonallocatable scalar
test.f90:14.43:
class(coarray_t), intent(inout) :: this
1
Error: Component '_def_init' at (1) with coarray component shall be a
nonpointer, nonallocatable scalar
test.f90:16.14:
allocate( this%value(num_images())[*] )
1
Error: Coindexed allocatable object at (1)
test.f90:21.15:
use m_coarray
1
Fatal Error: Can't open module file 'm_coarray.mod' for reading at (1): No such
file or directory
I suspect the CLASS declaration is triggering come sort of hidden parent
component that fails the requirements.
Also fails with gfortran 4.7.
Compiles without error with Cray and Intel compilers.
I suspect this is just a case of incomplete implementation at this stage.
