------- Comment #1 from burnus at gcc dot gnu dot org  2007-04-25 07:38 -------
foo1 (__result, n)
{
  bar1 ((int4 *) n, foo1);
  goto __return_foo1;
  __return_foo1:;

looks strange. Shouldn't this be:
  bar1 ((int4 *) n, __result)

In addition, the warning
  g.f90:8: warning: Function does not return a value
should be suppressed.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu dot
                   |                            |org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |wrong-code
   Last reconfirmed|0000-00-00 00:00:00         |2007-04-25 07:38:17
               date|                            |
            Summary|function without result     |Wrong code when passing
                   |clause fails to compile     |function name as result to
                   |prperly                     |procedures


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

Reply via email to