* lib/f-torture.exp: Improve error and loop detection.

From-SVN: r16710

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e2003c03429dd3a7498c5e570808037f2fbf2233..9678eba2d1ff1a74660f3dc8aa432e0da24a8e35 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Tue Nov 25 16:18:51 1997  Kate Hedstrom  (kate@ahab.rutgers.edu)
+
+       * lib/f-torture.exp: Improve error and loop detection.
+
 Mon Oct  6 12:03:10 1997  Jeffrey A Law  (law@cygnus.com)
 
        * lib/g77.exp, lib/f-torture.exp: New files.

diff --git a/gcc/testsuite/lib/f-torture.exp b/gcc/testsuite/lib/f-torture.exp
index 3493b03840ad14ec2fc5ae391f31bd7c533d0a26..5bd6027576c301ef68e4275c8ea88ab71bdc14b4 100644 (file)
--- a/gcc/testsuite/lib/f-torture.exp
+++ b/gcc/testsuite/lib/f-torture.exp
@@ -74,7 +74,7 @@ proc f-torture-compile { src option } {
     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"
+    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,7 +89,7 @@ proc f-torture-compile { src option } {
     }
 
     # We shouldn't get these because of -w, but just in case.
-    if [string match "*cc:*warning:*" $comp_output] then {
+    if [string match "*77*:*warning:*" $comp_output] then {
        warning "$testcase: (with warnings) $option"
        send_log "$comp_output\n"
        unresolved "$testcase, $option"
@@ -146,7 +146,7 @@ proc f-torture-execute { src } {
     # 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 {
+    if [expr [search_for $src "do *\[0-9\]"]+[search_for $src "end *do"]] then {
        set option_list $torture_with_loops
     } else {
        set option_list $torture_without_loops
@@ -177,7 +177,7 @@ proc f-torture-execute { src } {
        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"
+       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,7 +192,7 @@ proc f-torture-execute { src } {
        }
        
        # We shouldn't get these because of -w, but just in case.
-       if [string match "*cc:*warning:*" $comp_output] then {
+       if [string match "*77*:*warning:*" $comp_output] then {
            warning "$testcase: (with warnings) $option"
            send_log "$comp_output\n"
            unresolved "$testcase, $option"
@@ -225,7 +225,7 @@ proc f-torture-execute { src } {
        # See if this source file uses "long long" types, if it does, and
        # no_long_long is set, skip execution of the test.
        if [target_info exists no_long_long] then {
-           if [expr [search_for $src "long long"]] then {
+           if [expr [search_for $src "integer\*8"]] then {
                untested "$testcase execution, $option"
                continue
            }
@@ -252,7 +252,7 @@ proc search_for { file pattern } {
     set fd [open $file r]
     while { [gets $fd cur_line]>=0 } {
        set lower [string tolower $cur_line]
-       if [string match "*$pattern*" $lower] then {
+       if [regexp "$pattern" $lower] then {
            close $fd
            return 1
        }
@@ -302,7 +302,7 @@ proc f-torture { args } {
     # 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 {
+    if [expr [search_for $src "do *\[0-9\]"]+[search_for $src "end *do"]] then {
        set option_list $torture_with_loops
     } else {
        set option_list $torture_without_loops