Commit e29979ad authored by jakub's avatar jakub
Browse files

* module.c (mio_typespec): Don't look at ts->cl if not BT_CHARACTER.

	* gfortran.dg/module_implicit_conversion.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122915 138bc75d-0d04-0410-961f-82ee72b054a4
parent a638be8f
2007-03-14 Jakub Jelinek <jakub@redhat.com>
* module.c (mio_typespec): Don't look at ts->cl if not BT_CHARACTER.
2007-03-13 Brooks Moses <brooks.moses@codesourcery.com>
PR fortran/30933
......
......@@ -1814,7 +1814,14 @@ mio_typespec (gfc_typespec *ts)
else
mio_symbol_ref (&ts->derived);
mio_charlen (&ts->cl);
if (ts->type != BT_CHARACTER)
{
/* ts->cl is only valid for BT_CHARACTER. */
mio_lparen ();
mio_rparen ();
}
else
mio_charlen (&ts->cl);
mio_rparen ();
}
......
2007-03-14 Jakub Jelinek <jakub@redhat.com>
* gfortran.dg/module_implicit_conversion.f90: New test.
2007-03-13 Alexandre Oliva <aoliva@redhat.com>
 
PR middle-end/31127
! { dg-do compile }
! { dg-options "-std=gnu" }
module module_implicit_conversion
! double complex :: s = (1.0D0, 0D0)
double complex :: s = (1.0, 0D0)
end module module_implicit_conversion
! { dg-final { cleanup-modules "module_implicit_conversion" } }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment