patch for f-torture.exp

[Kate Hedstrom]

This patch improves the ability of f-torture.exp to recognize
Fortran do loops so that the testsuite will try -funroll-loops
on the appropriate files.  It also attempts to fix the search
for fatal signals from the compiler, although I don't currently
have any way to test this.

f-torture.exp still has some "long long" stuff I don't understand,
but I suspect that it doesn't need to be there.

*** gcc/testsuite/lib/f-torture.exp.orig	Fri Nov 21 14:47:44 1997
--- gcc/testsuite/lib/f-torture.exp	Sat Nov 22 23:27:32 1997
***************
*** 74,80 ****
      set comp_output [g77_target_compile "$src" "$output" object $options];
      
      # Set a few common compiler messages.
!     set fatal_signal "*cc: Internal compiler error: program*got fatal signal"
   
      if [string match "$fatal_signal 6" $comp_output] then {
  	g77_fail $testcase "Got Signal 6, $option"
--- 74,80 ----
      set comp_output [g77_target_compile "$src" "$output" object $options];
      
      # Set a few common compiler messages.
!     set fatal_signal "*77*: Internal compiler error: program*got fatal signal"
   
      if [string match "$fatal_signal 6" $comp_output] then {
  	g77_fail $testcase "Got Signal 6, $option"
***************
*** 89,95 ****
      }
  
      # We shouldn't get these because of -w, but just in case.
!     if [string match "*cc:*warning:*" $comp_output] then {
  	warning "$testcase: (with warnings) $option"
  	send_log "$comp_output\n"
  	unresolved "$testcase, $option"
--- 89,95 ----
      }
  
      # We shouldn't get these because of -w, but just in case.
!     if [string match "*77*:*warning:*" $comp_output] then {
  	warning "$testcase: (with warnings) $option"
  	send_log "$comp_output\n"
  	unresolved "$testcase, $option"
***************
*** 146,152 ****
      # Look for a loop within the source code - if we don't find one,
      # don't pass -funroll[-all]-loops.
      global torture_with_loops torture_without_loops
!     if [expr [search_for $src "do*("]+[search_for $src "while*("]] then {
  	set option_list $torture_with_loops
      } else {
  	set option_list $torture_without_loops
--- 146,152 ----
      # Look for a loop within the source code - if we don't find one,
      # don't pass -funroll[-all]-loops.
      global torture_with_loops torture_without_loops
!     if [expr [search_for $src "do*\[0123456789\]"]+[search_for $src "end*do"]] then {
  	set option_list $torture_with_loops
      } else {
  	set option_list $torture_without_loops
***************
*** 177,183 ****
  	set comp_output [g77_target_compile "$src" "$executable" executable $options];
  
  	# Set a few common compiler messages.
! 	set fatal_signal "*cc: Internal compiler error: program*got fatal signal"
  	
  	if [string match "$fatal_signal 6" $comp_output] then {
  	    g77_fail $testcase "Got Signal 6, $option"
--- 177,183 ----
  	set comp_output [g77_target_compile "$src" "$executable" executable $options];
  
  	# Set a few common compiler messages.
! 	set fatal_signal "*77*: Internal compiler error: program*got fatal signal"
  	
  	if [string match "$fatal_signal 6" $comp_output] then {
  	    g77_fail $testcase "Got Signal 6, $option"
***************
*** 192,198 ****
  	}
  	
  	# We shouldn't get these because of -w, but just in case.
! 	if [string match "*cc:*warning:*" $comp_output] then {
  	    warning "$testcase: (with warnings) $option"
  	    send_log "$comp_output\n"
  	    unresolved "$testcase, $option"
--- 192,198 ----
  	}
  	
  	# We shouldn't get these because of -w, but just in case.
! 	if [string match "*77*:*warning:*" $comp_output] then {
  	    warning "$testcase: (with warnings) $option"
  	    send_log "$comp_output\n"
  	    unresolved "$testcase, $option"
***************
*** 302,308 ****
      # Look for a loop within the source code - if we don't find one,
      # don't pass -funroll[-all]-loops.
      global torture_with_loops torture_without_loops
!     if [expr [search_for $src "do*("]+[search_for $src "while*("]] then {
  	set option_list $torture_with_loops
      } else {
  	set option_list $torture_without_loops
--- 302,308 ----
      # Look for a loop within the source code - if we don't find one,
      # don't pass -funroll[-all]-loops.
      global torture_with_loops torture_without_loops
!     if [expr [search_for $src "do*\[0123456789\]"]+[search_for $src "end*do"]] then {
  	set option_list $torture_with_loops
      } else {
  	set option_list $torture_without_loops