The code below, when compiled with PGF90 6.1:
pgf90 6.1-1 32-bit target on x86 Linux
Copyright 1989-2000, The Portland Group, Inc. All Rights Reserved.
Copyright 2000-2005, STMicroelectronics, Inc. All Rights Reserved.
gives the following error message:
[ngs0203@grid-compute wcml]$ pgf95 -c pgf90bug.f90
PGF90-S-0000-Internal compiler error. exp_ref:IM_BASE op#2 not based sym 310 (pgf90bug.f90: 68)
0 inform, 0 warnings, 1 severes, 0 fatal for cmladdnamespace
module bug2
implicit none
private
type, public :: elstack_t
private
type(elstack_item), pointer, dimension(:) :: stack
end type elstack_t
public :: get_top_elstack
contains
pure function get_top_elstack(elstack) result(item)
type(elstack_t), intent(in) :: elstack
character(len=size(elstack%stack)) :: item
item = ‘’
end function get_top_elstack
end module bug2
module bug
use bug2, only: elstack_t, get_top_elstack
implicit none
private
type xmlf_t
private
type(elstack_t) :: stack
end type xmlf_t
public :: xmlf_t
public :: xmlf_OpenTag
contains
function xmlf_opentag(xf) result(fn)
type (xmlf_t), intent(in) :: xf
character(len=len(get_top_elstack(xf%stack))) :: fn
continue
end function xmlf_opentag
end module bug
module m_wcml_core
use bug, only: xmlf_t
use bug, only: xmlf_OpenTag
implicit none
private
contains
subroutine cmlAddNamespace(xf)
type(xmlf_t), intent(inout) :: xf
print *,xmlf_Opentag(xf)
end subroutine cmlAddNamespace
end module m_wcml_core