(sparc_type_code): Return reasonable result for COMPLEX_TYPE.

From-SVN: r2388

diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c
index fe451f9132113cda3f07b56e06926e3383cde31d..2a6bcd061b2d00a725d8a3161f9c576358bdc0a5 100644 (file)
--- a/gcc/config/sparc/sparc.c
+++ b/gcc/config/sparc/sparc.c
@@ -3020,6 +3020,11 @@ sparc_type_code (type)
          abort ();
   
        case COMPLEX_TYPE:      /* GNU Fortran COMPLEX type.  */
+         /* ??? We need to dinguish between double and float complex types,
+            but I don't know how yet because I can't reach this code from
+            existing front-ends.  */
+         return (qualifiers | 7);      /* Who knows? */
+
        case CHAR_TYPE:         /* GNU Pascal CHAR type.  Not used in C.  */
        case BOOLEAN_TYPE:      /* GNU Fortran BOOLEAN type.  */
        case FILE_TYPE:         /* GNU Pascal FILE type.  */