I stopped getting e-mail with these posts on Dec 2, so haven't kept track
of what is going on. But here is an ICE--maybe submitted previously.
ifort -c int*
Intel(R) Visual Fortran Intel(R) 64 Compiler XE for applications running on Intel(R) 64, Version 15.
0.1.148 Build 20141023
Copyright (C) 1985-2014 Intel Corporation. All rights reserved.
intel_bug.f90(32): error #5276: Unbalanced parentheses
x = line_type(0.0, 1.0, 0.0, 1.0))
------------------------------------^
intel_bug.f90(32): error #5082: Syntax error, found ')' when expecting one of: <END-OF-STATEMENT> ;
x = line_type(0.0, 1.0, 0.0, 1.0))
------------------------------------^
intel_bug.f90(32): error #8726: There may be at most one type parameter spec corresponding to each p
arameter of the type. [0.0]
x = line_type(0.0, 1.0, 0.0, 1.0))
-----------------^
fortcom: Fatal: There has been an internal compiler error (C0000005).
compilation aborted for intel_bug.f90 (code 1)
======================
module m
implicit none
private
type, public :: line_type
real :: x1, x2, y1, y2
contains
procedure, public :: length
end type line_type
contains
function length(ab) result(length_result)
class(line_type), intent(in) :: ab
real :: length_result
length_result = 1.1
end function length
end module m
program p
use m
implicit none
class(line_type), allocatable :: x
! Note extra paren at end
x = line_type(0.0, 1.0, 0.0, 1.0))
print *, x%length()
end program p