Index: target.exp
===================================================================
RCS file: /cvsroot/dejagnu/dejagnu/lib/target.exp,v
retrieving revision 1.15
diff -u -p -r1.15 target.exp
--- target.exp	5 Feb 2004 23:41:21 -0000	1.15
+++ target.exp	29 Mar 2004 19:18:14 -0000
@@ -333,6 +333,19 @@ proc default_target_compile {source dest
     }
 
     foreach i $options {
+	if { $i == "ada" } {
+	    set compiler_type "ada"
+	    if [board_info $dest exists adaflags] {
+		append add_flags " [target_info adaflags]"
+	    }
+	    # append add_flags " [gnatmake_include_flags]";
+	    if [board_info $dest exists gnatmake] {
+		set compiler [target_info gnatmake];
+	    } else {
+		set compiler [find_gnatmake];
+	    }
+	}
+
 	if { $i == "c++" } {
 	    set compiler_type "c++"
 	    if [board_info $dest exists cxxflags] {
@@ -412,6 +425,7 @@ proc default_target_compile {source dest
     global CC_FOR_TARGET
     global CXX_FOR_TARGET
     global F77_FOR_TARGET
+    global GNATMAKE_FOR_TARGET
 
     if [info exists CC_FOR_TARGET] {
 	if { $compiler == "" } {
@@ -428,6 +442,12 @@ proc default_target_compile {source dest
     if [info exists F77_FOR_TARGET] {
 	if { $compiler_type == "f77" } {
 	    set compiler $F77_FOR_TARGET
+	}
+    }
+
+    if [info exists GNATMAKE_FOR_TARGET] {
+	if { $compiler_type == "ada" } {
+	    set compiler $GNATMAKE_FOR_TARGET
 	}
     }