[gfortran] Fix resolutions of transpose.

[Paul Brook <paul at codesourcery dot com>]

Patch below fixes resolution of the transpose intrinsic for complex types.

Paul

2004-01-10  Huang Chun  <chunhuang73@hotmail.com>

	* iresolve.c (gfc_resolve_transpose): Use correct kind.

2004-01-10  Paul Brook  <paul@codesourcery.com>

	* gfortran.fortran-torture/execute/intrinsic_transpose.f90: Test complex 
variables.

Index: iresolve.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/Attic/iresolve.c,v
retrieving revision 1.1.2.5
diff -u -p -r1.1.2.5 iresolve.c
--- iresolve.c	17 Oct 2003 18:58:22 -0000	1.1.2.5
+++ iresolve.c	10 Jan 2004 17:05:53 -0000
@@ -1268,7 +1268,7 @@ gfc_resolve_transpose (gfc_expr * f, gfc
     case 8:
     /* case 16: */
       f->value.function.name =
-        gfc_get_string ("__transpose_%d", matrix->ts.kind);
+        gfc_get_string ("__transpose_%d", kind);
       break;
 
     default:

Attachment: intrinsic_transpose.f90
Description: Text document