- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Dear Intel Fortran Compiler support team,
I think that the code snippet below is standard conforming but I'm getting an error at compile-time with ifort 17.0.0.
Is this code valid?
Best regards,
Víctor.
module fe_space_names
implicit none
private
type :: base_fe_space_t
private
type(coarse_fe_space_t) , pointer :: coarse_fe_space => NULL()
end type base_fe_space_t
type, abstract :: l1_coarse_fe_handler_t
end type l1_coarse_fe_handler_t
abstract interface
subroutine l1_get_num_coarse_dofs_interface(this)
import :: l1_coarse_fe_handler_t
! Removing the implicit none avoids the compiler error
implicit none
class(l1_coarse_fe_handler_t), intent(in) :: this
end subroutine l1_get_num_coarse_dofs_interface
end interface
! Moving this type definition over l1_corse_fe_handler_t
! definition avoids the compiler error
type, extends(base_fe_space_t) :: coarse_fe_space_t
end type coarse_fe_space_t
public :: base_fe_space_t, l1_coarse_fe_handler_t, coarse_fe_space_t
end module fe_space_names
Link Copied
1 Reply
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I believe this is legal code, and have sent this on to the developers as issue DPD200415976. Thanks for the nice test case.
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