[PATCH v2 03/16] gdb/testsuite: Fix fortran types for Intel compilers.

[Kempke, Nils-Christian]

Hi Andrew,

thanks for reviewing.

I might have pushed this series by mistake - I saw your comment and somehow read it as a comment for the whole series (v2)..

Sorry for that .. We should likely revert it in this case and finish the reviewing first...


Best,
Nils

> -----Original Message-----
> From: Andrew Burgess <aburgess@redhat.com>
> Sent: Tuesday, May 31, 2022 4:16 PM
> To: Kempke, Nils-Christian <nils-christian.kempke@intel.com>; gdb-
> patches@sourceware.org
> Cc: JiniSusan.George@amd.com; Ijaz, Abdul B <abdul.b.ijaz@intel.com>
> Subject: Re: [PATCH v2 03/16] gdb/testsuite: Fix fortran types for Intel
> compilers.
> 
> Nils-Christian Kempke via Gdb-patches <gdb-patches@sourceware.org>
> writes:
> 
> > From: Felix Willgerodt <felix.willgerodt@intel.com>
> >
> > Newer Intel compilers emit their dwarf type name in a slightly different
> > format.  Therefore, this needs adjustment to make more tests pass in the
> > Fortran testsuite.
> >
> > Co-authored-by: Abdul Basit Ijaz <abdul.b.ijaz@intel.com>
> > Co-authored-by: Nils-Christian Kempke <nils-christian.kempke@intel.com>
> > ---
> >  gdb/testsuite/lib/fortran.exp | 18 ++++++++++++++++++
> >  1 file changed, 18 insertions(+)
> 
> LGTM.
> 
> Thanks,
> Andrew
> 
> >
> > diff --git a/gdb/testsuite/lib/fortran.exp b/gdb/testsuite/lib/fortran.exp
> > index a97c6eeb4e..9531d393a1 100644
> > --- a/gdb/testsuite/lib/fortran.exp
> > +++ b/gdb/testsuite/lib/fortran.exp
> > @@ -38,6 +38,8 @@ proc fortran_int4 {} {
> >  	return "integer"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "INTEGER\\(4\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "INTEGER\\*4"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -52,6 +54,8 @@ proc fortran_int8 {} {
> >  	return "integer\\*8"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "INTEGER\\(8\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "INTEGER\\*8"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -66,6 +70,8 @@ proc fortran_real4 {} {
> >  	return "real"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "REAL\\(4\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "REAL\\*4"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -80,6 +86,8 @@ proc fortran_real8 {} {
> >  	return "double precision"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "REAL\\(8\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "REAL\\*8"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -94,6 +102,8 @@ proc fortran_complex4 {} {
> >  	return "complex"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "COMPLEX\\(4\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "COMPLEX\\*8"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -108,6 +118,8 @@ proc fortran_complex8 {} {
> >  	return "double complex"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "COMPLEX\\(8\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "COMPLEX\\*16"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -122,6 +134,8 @@ proc fortran_complex16 {} {
> >  	return "quad complex"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "COMPLEX\\(16\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "COMPLEX\\*32"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -136,6 +150,8 @@ proc fortran_logical4 {} {
> >  	return "logical"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "LOGICAL\\(4\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "LOGICAL\\*4"
> >      } else {
> >  	return "unknown"
> >      }
> > @@ -150,6 +166,8 @@ proc fortran_character1 {} {
> >  	return "character"
> >      } elseif {[test_compiler_info {icc-*}]} {
> >  	return "CHARACTER\\(1\\)"
> > +    } elseif {[test_compiler_info {intel-*}]} {
> > +	return "CHARACTER\\*1"
> >      } else {
> >  	return "unknown"
> >      }
> > --
> > 2.25.1
> >
> > Intel Deutschland GmbH
> > Registered Address: Am Campeon 10, 85579 Neubiberg, Germany
> > Tel: +49 89 99 8853-0, www.intel.de <http://www.intel.de>
> > Managing Directors: Christin Eisenschmid, Sharon Heck, Tiffany Doon Silva
> > Chairperson of the Supervisory Board: Nicole Lau
> > Registered Office: Munich
> > Commercial Register: Amtsgericht Muenchen HRB 186928

Intel Deutschland GmbH
Registered Address: Am Campeon 10, 85579 Neubiberg, Germany
Tel: +49 89 99 8853-0, www.intel.de <http://www.intel.de>
Managing Directors: Christin Eisenschmid, Sharon Heck, Tiffany Doon Silva  
Chairperson of the Supervisory Board: Nicole Lau
Registered Office: Munich
Commercial Register: Amtsgericht Muenchen HRB 186928