resolve functions and optional arguments?

[Steve Kargl]

I have an implementation of SYSTEM_CLOCK ready to 
submit except for one outstanding issue.  SYSTEM_CLOCK
has 3 arguments all of which are optional.  If I write

  program a
  integer c, cr, cm
  call system_clock(count=c, count_rate=cr, count_max=cm)
  end program 

everything is fine.  However, if I write

  program a
  integer cr
  call system_clock(count_rate=cr)
  end program 

gfortran segfaults in gfc_resolve_system_clock.  So my
question (almost plea for help) is how does one write
the proper resolve function?

-- 
Steve