← Back to branch summary

~ubuntu-branches/debian/sid/gdb/sid

« back to all changes in this revision

Viewing changes to gdb/testsuite/gdb.fortran/library-module.exp

  • Committer: Package Import Robot
  • Author(s): Hector Oron
  • Date: 2012-01-28 00:41:20 UTC
  • mfrom: (1.4.9) (5.1.6 experimental)
  • Revision ID: package-import@ubuntu.com-20120128004120-bar1h77ark622noi
Tags: 7.4really-1
* New upstream release:
  - Many Python scripting improvements
  - Better support for ambiguous linespecs
  - Masked watchpoints
  - Tracepoint support improvements
  - Support for Texas Instruments TMS320C6x (tic6x-*-*)
  - A Renesas RL78 simulator (rl78-*-elf)
  - Some minor Remote protocol extensions and GDB/MI changes
* Temporarily disable gdb-multiarch and gdb-dbg.

Show diffs side-by-side

added added

removed removed

Lines of Context:
gdb/testsuite/gdb.fortran/library-module.exp
1
 
# Copyright 2010, 2011 Free Software Foundation, Inc.
 
1
# Copyright 2010-2012 Free Software Foundation, Inc.
2
2
 
3
3
# This program is free software; you can redistribute it and/or modify
4
4
# it under the terms of the GNU General Public License as published by
25
25
   return -1
26
26
}
27
27
 
28
 
if  { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$libfile {debug f77}] != "" } {
 
28
if  { [gdb_compile_shlib "${srcdir}/${subdir}/${srclibfile}" $objdir/$subdir/$libfile {debug f90}] != "" } {
29
29
    untested "Couldn't compile ${srclibfile}"
30
30
    return -1
31
31
}
34
34
# just for the linking phase (and not the source compilation phase).  And any
35
35
# warnings on ignored $libfile abort the process.
36
36
 
37
 
if  { [gdb_compile [list $srcdir/$subdir/$srcfile $objdir/$subdir/$libfile] $objdir/$subdir/$binfile executable {debug f77}] != "" } {
 
37
if  { [gdb_compile $srcdir/$subdir/$srcfile $objdir/$subdir/$binfile executable [list debug f90 shlib=$objdir/$subdir/$libfile]] != "" } {
38
38
    untested "Couldn't compile ${srcfile}"
39
39
    return -1
40
40
}
41
41
 
42
42
clean_restart $binfile
43
43
 
 
44
gdb_load_shlibs $objdir/$subdir/$libfile
 
45
 
44
46
if ![runto MAIN__] then {
45
47
    perror "couldn't run to breakpoint MAIN__"
46
48
    continue