[Bug fortran/34994] gfortran.dg/missing_optional_dummy_5.f90 doesn't work

[jvdelisle at gcc dot gnu dot org]

--- Comment #3 from jvdelisle at gcc dot gnu dot org  2008-01-28 02:11 
---
Fixed.


-- 

jvdelisle at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|UNCONFIRMED |RESOLVED
 Resolution||FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34994

[Bug fortran/34994] gfortran.dg/missing_optional_dummy_5.f90 doesn't work

[jvdelisle at gcc dot gnu dot org]

--- Comment #2 from jvdelisle at gcc dot gnu dot org  2008-01-28 02:09 
---
Subject: Bug 34994

Author: jvdelisle
Date: Mon Jan 28 02:09:07 2008
New Revision: 131898

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=131898
Log:
2008-01-27  Jerry DeLisle  <[EMAIL PROTECTED]>

PR fortran/34994
* gfortran.dg/missing_optional_dummy_5.f90: Fix matching regular
expression.

Modified:
trunk/gcc/testsuite/ChangeLog
trunk/gcc/testsuite/gfortran.dg/missing_optional_dummy_5.f90


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34994

[Bug fortran/34994] gfortran.dg/missing_optional_dummy_5.f90 doesn't work

[hjl dot tools at gmail dot com]

--- Comment #1 from hjl dot tools at gmail dot com  2008-01-28 00:17 ---
With -m32, we got

doit ()
{
  real(kind=4) doit1[2];

  {
struct array1_real(kind=4) parm.6;

parm.6.dtype = 281;
parm.6.dim[0].lbound = 1;
parm.6.dim[0].ubound = 2;
parm.6.dim[0].stride = 1;
parm.6.data = (void *) &doit1[0];
parm.6.offset = -1;
tm_doit (&parm.6, 0B, 0);
  }
  goto __return_doit;
  __return_doit:;
}

instead of

doit ()
{
  real(kind=4) doit1[2];

  {
struct array1_real(kind=4) parm.7;

parm.7.dtype = 281;
parm.7.dim[0].lbound = 1;
parm.7.dim[0].ubound = 2;
parm.7.dim[0].stride = 1;
parm.7.data = (void *) &doit1[0];
parm.7.offset = -1;
tm_doit (&parm.7, 0B, 0);
  }
  goto __return_doit;
  __return_doit:;
}

with -m64. But we only expect " tm_doit \\(&parm.7, 0B, 0\\);".


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34994