!>
!! 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