Meissner examples - the last one to fall

[Paul THOMAS]

Dominique,

> (1) induct.f90 gives a bunch of errors:
> 
> ...
> public :: mutual_ind_quad_cir_coil
> 1
> Error: 'rect_inductor' is a PRIVATE type and cannot be a dummy argument of 'mutual_ind_quad_cir_coil', which is PUBLIC at (1)
> In file induct.f90:1824

Yes, I seem not to have understood what comprises a PRIVATE type in this context, or I have screwed up the implementation.

I'm onto it. 

> [karma] f90/Meissner% gfortran Literate.f90
> Literate.f90:0: internal compiler error: in gfc_get_derived_type, at fortran/trans-types.c:1459

The patch for this has not yet been submitted.

> and the program Array_List.f90 (use compound.txt) does not give the right
> result.

I'll take a look tonight.

> PS In the link of the original mail, the file "ising.dat" is
> obviously wrong. Is there some place where I can find the
> right one. TIA
> 
Still worse, the does not compile with the latest cvs.  A reduced test:

  integer, dimension(4) :: Ising = (/1,0,0,1/)
  print *, Merge ("+", "-", Ising(1: 4)  == 1)
  end

produces:

$ /irun/bin/gfortran -fdump-tree-original null.f90
null.f90: In function 'MAIN__':
null.f90:2: internal compiler error: in gfc_conv_expr_descriptor, at fortran/trans-array.c:3815

I do not think that this is my doing.

Paul T

For ising.dat, I use:

 4
  T  F  T  F  T  F  T  F  T  F  T  F T  F  T  F
   T  F  T  F  T  F  T  F  T  F  T  F T  F  T  F
  T  F  T  F  T  F  T  F  T  F  T  F T  F  T  F
  T  F  T  F  T  F  T  F  T  F  T  F T  F  T  F