#!/usr/bin/perl

# Experiment: try defining all the undefs...

open OUT,"> undefs.f";

while (<>) {

  if (/undefined reference to `(.*)_'/) {
    print $1,"\n";
    print OUT <<EOF;
      subroutine $1
      print *,'**'
      print *,'**'
      print *,'**'
      print *,"WMC: Error: undefined function $1 called. Dying"
      print *,'**'
      print *,'**'
      print *,'**'
      STOP
      end
EOF
  };

};