Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
Announcements
Welcome to the Intel Community. If you get an answer you like, please mark it as an Accepted Solution to help others. Thank you!

Ifort 17.0.0 compiler error

Victor_S_2
Beginner
100 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
100 Views

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

Reply