Quantcast
Channel: Intel® Fortran Composer XE
Viewing all articles
Browse latest Browse all 1424

ICE in select type with class(*)

$
0
0

The code below produces an internal compiler error, if the /debug:full option is enabled.

program main
  implicit none

    real :: foo(2,2)
    foo = 1.0

    call testSub(foo)

  contains

  subroutine testSub(matrix)
    class(*), intent(inout) :: matrix(:,:)  ! << This works
!    class(*), intent(inout) :: matrix(2,2)  ! << This fails
    select type(local => matrix)
      type is (real)
    end select
  end subroutine testSub

end program

 

Compiler: Intel(R) Visual Fortran Compiler XE 15.0 Update 2 for Windows


Viewing all articles
Browse latest Browse all 1424

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>