Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Beginner
12 Views

Ifort 17.0.0 compiler error

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
0 Kudos
1 Reply
Highlighted
12 Views

I believe this is legal code, and have sent this on to the developers as issue DPD200415976. Thanks for the nice test case.

0 Kudos