This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [patch] ADA dg testsuite


ja2morri@csclub.uwaterloo.ca (James A. Morrison) writes:

>  Hi,
> 
>   I've now got a small ADA testsuite that uses the dg framework.  I've only
> included the tests that are passing so far.  I'll post more tests as I find
> them in the archives or get the few others I have to pass.  There are 36
> passing tests included in tests.tgz.  Some of these tests are compilation
> tests others are run time tests.  One drawback to this patch is that FILE.ali
> and FILE.o are not deleted for run time tests.
> 
>   I've attached a diff to ada/Make-lang.in.  The other attached files are two
> files needed in testsuite/lib, ada.exp and ada-dg.exp, and the tests themselves
> in test.tgz which I put in testsuite/ada.

  To make things easier on me, I added a function find_gnat to libgloss.exp:
proc find_gnat {} {
    global tool_root_dir

    if ![is_remote host] {
        set file [lookfor_file $tool_root_dir gnatmake]
        if { $file == "" } {
            set file [lookfor_file $tool_root_dir gcc/gnatmake]
        }
        if { $file != "" } {
            set CC "$file -B[file dirname $file]/"
        } else {
            set CC [transform gnatmake]
        }
    } else {
        set CC [transform gnatmake]
    }
    return $CC
}


-- 
Thanks,
Jim

http://www.student.cs.uwaterloo.ca/~ja2morri/
http://phython.blogspot.com
http://open.nit.ca/wiki/?page=jim


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]