- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hi,
I get a segmentation fault when calling a type bound procedure from a coarray object.
In the following code, if the line 41 is commented, the seg. fault disappears.
Thanks.
! ifort -coarray main.f90; ./a.out Module Block_Container_Class implicit none Type :: Block_Container_Type integer :: idum contains procedure ,public :: TBProcedure End Type contains Subroutine TBProcedure( This ) class(Block_Container_Type) ,intent(inout) :: This write(*,*) " [TBProcedure]: Inside" End Subroutine Subroutine NormalProcedure( This ) type(Block_Container_Type) ,intent(inout) :: This write(*,*) " [NormalProcedure]: Inside" End Subroutine End Module Module Mesh_Class use Block_Container_Class implicit none private public :: Mesh_Type Type :: Mesh_Type type(Block_Container_Type),allocatable :: Blocks[:] contains procedure ,public :: Construct procedure ,private :: MeshTBProcedure End Type contains Subroutine Construct( This ) class(Mesh_Type) ,intent(inout) :: This call This%MeshTBProcedure() End Subroutine Subroutine MeshTBProcedure( This ) class(Mesh_Type) ,intent(inout) :: This allocate( This%Blocks
Link Copied
2 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
We'll take a look - thanks.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
This problem is our issue DPD200416083. Thanks for reporting it.
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page