From c82aa69aa38c58458abb3b08785bc08e879aec9f Mon Sep 17 00:00:00 2001
From: Jim Wilson <wilson@gcc.gnu.org>
Date: Fri, 9 Oct 1992 15:10:02 -0700
Subject: [PATCH] (sparc_type_code): Return reasonable result for COMPLEX_TYPE.

From-SVN: r2388
---
 gcc/config/sparc/sparc.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c
index fe451f91321..2a6bcd061b2 100644
--- 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.  */