This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Meissner examples - the last one to fall
- From: Paul THOMAS <paulthomas2 at wanadoo dot fr>
- To: Dominique Dhumieres <dominiq at lps dot ens dot fr>, fortran at gcc dot gnu dot org
- Date: Tue, 4 Oct 2005 15:49:57 +0200 (CEST)
- Subject: Re: Meissner examples - the last one to fall
- Reply-to: paulthomas2 at wanadoo dot fr
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