Fwd: [patch] Fix PR19294

Thomas Koenig Thomas.Koenig@online.de
Sun Jan 16 07:12:00 GMT 2005


> >From: ja2morri@csclub.uwaterloo.ca (James Morrison)

> >@@ -1343,7 +1347,10 @@ gfc_resolve_transpose (gfc_expr * f, gfc
> >   switch (matrix->ts.type)
> >     {
> >     case BT_COMPLEX:
> >-      kind = matrix->ts.kind * 2;
> >+      if (STRICT_ALIGNMENT)
> >+	kind = 0;
> >+      else
> >+	kind = matrix->ts.kind * 2;
> >       break;

What about machines with SLOW_ALIGNMENT?  The code would for them,
but probably with a performance penalty for using misaligned
integers.

	Thomas



More information about the Fortran mailing list