* lib/gcc-dg.exp (cleanup-modules): New proc.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / g77 / 980427-0.f

c { dg-do compile }
c ../../egcs/gcc/f/com.c:938: failed assertion `TREE_CODE (TREE_TYPE (e)) == REAL_TYPE'
c     Fixed by 28-04-1998 global.c (ffeglobal_ref_progunit_) change.
      external b
      call y(b)
      end
      subroutine x
      a = b()
      end