!> | |
!! Example program causes an internal compiler error in | |
!! IBM XL Fortran for AIX, V12.1 (5724-U82) | |
!! | |
!! Jeff Overbey (1/29/09) | |
!< | |
module m | |
type string | |
character, dimension(:), pointer :: data | |
contains | |
procedure value | |
end type | |
contains | |
! XLF internal compiler error due to this expression | |
! vvvvvvvvvvvvvvvvvvvv | |
character(len=ubound(self%data, 1)) function value(self) !result(result) | |
class(string), intent(in) :: self | |
value = '' | |
end function | |
end module |