[Bug fortran/33941] gfortran creates module files it can't read.

["dominiq at lps dot ens dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #9 from dominiq at lps dot ens dot fr  2007-10-30 14:50 -------
Reduced test case:

module m_common_elstack

  implicit none
  private

  ! Simple stack to keep track of which elements have appeared so far

  ! Initial stack size:
  integer, parameter :: STACK_SIZE_INIT = 10
  ! Multiplier when stack is exceeded:
  real, parameter :: STACK_SIZE_MULT = 1.5

  type :: elstack_item
    character, dimension(:), pointer :: data
  end type elstack_item

  type :: elstack_t
    private
    integer                                   :: n_items
    type(elstack_item), pointer, dimension(:) :: stack
  end type elstack_t

  public :: elstack_t

  public  :: pop_elstack

contains

  !-----------------------------------------------------------------
  function pop_elstack(elstack) result(item)
    type(elstack_t), intent(inout)     :: elstack
    character(len=merge(size(elstack%stack(elstack%n_items)%data), 0,
elstack%n_items > 0)) :: item

    integer :: n

  end function pop_elstack

end module m_common_elstack

program test
use m_common_elstack
end program

[karma] bug/dir_com% gfc m_common_elstack_red.f90
Fatal Error: Reading module m_common_elstack at line 28 column 38: Bad name

line 28 of m_common_elstack.mod:

'' (OP (LOGICAL 4 0 0 LOGICAL ()) 0 > (VARIABLE (INTEGER 4 0 0 INTEGER ())

[karma] bug/dir_com% gfortran m_common_elstack_red.f90
[karma] bug/dir_com% gfortran -v
Using built-in specs.
Target: powerpc-apple-darwin8
Configured with: ../gcc-4.2.2/configure --prefix=/sw --prefix=/sw/lib/gcc4.2
--mandir=/sw/share/man --infodir=/sw/share/info
--enable-languages=c,c++,fortran,objc,java --host=powerpc-apple-darwin8
--with-gmp=/sw --with-libiconv-prefix=/sw --with-system-zlib
--x-includes=/usr/X11R6/include --x-libraries=/usr/X11R6/lib
Thread model: posix
gcc version 4.2.2

line 20/21 of m_common_elstack.mod:

(CONSTANT (INTEGER 4 ()) 0 '0')) ('' (OP (LOGICAL 4 ()) 0 GT (VARIABLE (
INTEGER 4 ()) 0 5 ((COMPONENT 6 8 'n_items'))) (CONSTANT (INTEGER 4 ())


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33941