Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.

Ifort 17.0.0 compiler error

Victor_S_2
Beginner
237 Views

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
Steven_L_Intel1
Employee
237 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
Reply