* lib/g77.exp: Load gcc-defs.exp for common procedures
(g77_pass, g77_fail, g77_finish, g77_exit,
${tool}_check_unsupported_p} Now redundant. Deleted.
2001-08-01 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.dg/fbackslash.f
* g77.dg/fcase-preserve.f
* g77.dg/ff90-1.f
* g77.dg/ffixed-line-length-0.f
* g77.dg/ffixed-line-length-132.f
* g77.dg/ffixed-line-length-7.f
* g77.dg/ffixed-line-length-72.f
* g77.dg/ffixed-line-length-none.f
* g77.dg/ffree-form-1.f
* g77.dg/fno-backslash.f
* g77.dg/fno-f90-1.f
* g77.dg/fno-fixed-form-1.f
* g77.dg/fno-onetrip.f
* g77.dg/fno-typeless-boz.f
* g77.dg/fno-underscoring.f
* g77.dg/fno-vxt-1.f
* g77.dg/fonetrip.f
* g77.dg/ftypeless-boz.f
* g77.dg/fugly-assumed.f
* g77.dg/funderscoring.f
* g77.dg/fvxt-1.f
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@44555
138bc75d-0d04-0410-961f-
82ee72b054a4
+2001-08-01 David Billinghurst <David.Billinghurst@riotinto.com>
+
+ * lib/g77.exp: Load gcc-defs.exp for common procedures
+ (g77_pass, g77_fail, g77_finish, g77_exit,
+ ${tool}_check_unsupported_p} Now redundant. Deleted.
+
+2001-08-01 David Billinghurst <David.Billinghurst@riotinto.com>
+
+ * g77.dg/fbackslash.f
+ * g77.dg/fcase-preserve.f
+ * g77.dg/ff90-1.f
+ * g77.dg/ffixed-line-length-0.f
+ * g77.dg/ffixed-line-length-132.f
+ * g77.dg/ffixed-line-length-7.f
+ * g77.dg/ffixed-line-length-72.f
+ * g77.dg/ffixed-line-length-none.f
+ * g77.dg/ffree-form-1.f
+ * g77.dg/fno-backslash.f
+ * g77.dg/fno-f90-1.f
+ * g77.dg/fno-fixed-form-1.f
+ * g77.dg/fno-onetrip.f
+ * g77.dg/fno-typeless-boz.f
+ * g77.dg/fno-underscoring.f
+ * g77.dg/fno-vxt-1.f
+ * g77.dg/fonetrip.f
+ * g77.dg/ftypeless-boz.f
+ * g77.dg/fugly-assumed.f
+ * g77.dg/funderscoring.f
+ * g77.dg/fvxt-1.f
+
2001-08-01 Ziemowit Laski <zlaski@apple.com>
* objc.dg/fwd-proto-1.m: New.
--- /dev/null
+C Test compiler flags: -fbackslash
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fbackslash" }
+ if ( len('A\nB') .ne. 3 ) call abort
+ end
--- /dev/null
+C Test compiler flags: -fcase-preserve
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fcase-preserve" }
+ i = 3
+ I = 4
+ if ( i .ne. 3 ) call abort
+ end
--- /dev/null
+C Test compiler flags: -ff90
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C Read the g77 manual entry on CMPAMBIG
+C
+C { dg-do run }
+C { dg-options "-ff90" }
+ double complex z
+ z = (2.0d0,1.0d0)
+ call s(real(z))
+ end
+ subroutine s(x)
+ double precision x
+ if ( abs(z-2.0d0) .gt. 1.0e-5 ) call abort
+ end
--- /dev/null
+C Test compiler flags: -ffixed-line-length-0
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-0" }
+C The next line has length 257
+ en d
--- /dev/null
+C Test compiler flags: -ffixed-line-length-132
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-132" }
+c23456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012
+ en d*
--- /dev/null
+C Test compiler flags: -ffixed-line-length-7
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-7" }
+ e*
+ $n*
+ $d*
--- /dev/null
+C Test compiler flags: -ffixed-line-length-72
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-72" }
+c2345678901234567890123456789012345678901234567890123456789012345678901234567890
+ en d*
--- /dev/null
+C Test compiler flags: -ffixed-line-length-none
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-none" }
+C The next line has length 257
+ en d
--- /dev/null
+! Test compiler flags: -ffree-form
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+end
--- /dev/null
+C Test compiler flags: -fno-backslash
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fno-backslash" }
+ if ( len('A\nB') .ne. 4 ) call abort
+ end
--- /dev/null
+C Test compiler flags: -fno-f90
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C Read the g77 manual entry on CMPAMBIG
+C
+C { dg-do run }
+C { dg-options "-fno-f90 -fugly-complex" }
+ double complex z
+ z = (2.0d0,1.0d0)
+ call s(real(z))
+ end
+ subroutine s(x)
+ real x
+ if ( abs(x-2.0) .gt. 1.0e-5 ) call abort
+ end
--- /dev/null
+! Test compiler flags: -fno-fixed-form
+! Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+!
+! { dg-do compile }
+! { dg-options "-fno-fixed-form" }
+end
--- /dev/null
+C Test compiler flags: -fno-onetrip
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fno-onetrip -w" }
+ do i = 1, 0
+ call abort
+ end do
+ end
--- /dev/null
+C Test compiler flags: -fno-typeless-boz
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fno-typeless-boz" }
+ equivalence (i,r)
+ r = Z'ABCD1234'
+ j = Z'ABCD1234'
+ if ( j .eq. i ) call abort
+ end
--- /dev/null
+C Test compiler flags: -fno-underscoring
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-fno-underscoring" }
+ call aaabbbccc
+ end
+C { dg-final { scan-assembler-not "aaabbbccc_" } }
--- /dev/null
+C Test compiler flags: -fno-vxt
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fno-vxt" }
+ i = 0
+ !1
+ if ( i .ne. 0 ) call exit
+ call abort
+ END
--- /dev/null
+C Test compiler flags: -fonetrip
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fonetrip -w" }
+ do i = 1, 0
+ call exit
+ end do
+ call abort
+ end
--- /dev/null
+C Test compiler flags: -ftypeless-boz
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-ftypeless-boz" }
+ equivalence (i,r)
+ r = Z'ABCD1234'
+ j = Z'ABCD1234'
+ if ( j .ne. i ) call abort
+ end
--- /dev/null
+C Test compiler flags: -fugly-assumed
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-fugly-assumed" }
+ function f(i)
+ integer i(1)
+ f = i(1)+i(2)
+ end
--- /dev/null
+C Test compiler flags: -funderscoring
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-funderscoring" }
+ call aaabbbccc
+ end
+C { dg-final { scan-assembler "aaabbbccc_" } }
--- /dev/null
+C Test compiler flags: -fvxt
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do run }
+C { dg-options "-fvxt" }
+ i = 0
+ !1
+ if ( i .eq. 0 ) call exit
+ call abort
+ END
# They are also used by the various testsuites to define the environment:
# where to find stdio.h, libc.a, etc.
+load_lib gcc-defs.exp
+
#
# G77_UNDER_TEST is the compiler under test.
#
return [target_compile $source $dest $type $options]
}
-#
-# g77_pass -- utility to record a testcase passed
-#
-
-proc g77_pass { testcase cflags } {
- if { "$cflags" == "" } {
- pass "$testcase"
- } else {
- pass "$testcase, $cflags"
- }
-}
-
-#
-# g77_fail -- utility to record a testcase failed
-#
-
-proc g77_fail { testcase cflags } {
- if { "$cflags" == "" } {
- fail "$testcase"
- } else {
- fail "$testcase, $cflags"
- }
-}
-
-#
-# g77_finish -- called at the end of every .exp script that calls g77_init
-#
-# The purpose of this proc is to hide all quirks of the testing environment
-# from the testsuites. It also exists to undo anything that g77_init did
-# (that needs undoing).
-#
-
-proc g77_finish { } {
- # The testing harness apparently requires this.
- global errorInfo;
-
- if [info exists errorInfo] then {
- unset errorInfo
- }
-
- # Might as well reset these (keeps our caller from wondering whether
- # s/he has to or not).
- global prms_id bug_id
- set prms_id 0
- set bug_id 0
-}
-
-proc g77_exit { } {
- global gluefile;
-
- if [info exists gluefile] {
- file_on_build delete $gluefile;
- unset gluefile;
- }
-}
-
-# If this is an older version of dejagnu (without runtest_file_p),
-# provide one and assume the old syntax: foo1.exp bar1.c foo2.exp bar2.c.
-# This can be deleted after next dejagnu release.
-
-if { [info procs runtest_file_p] == "" } then {
- proc runtest_file_p { runtests testcase } {
- if { $runtests != "" && [regexp "\[.\]\[cC\]" $runtests] } then {
- if { [lsearch $runtests [file tail $testcase]] >= 0 } then {
- return 1
- } else {
- return 0
- }
- }
- return 1
- }
-}
-
# Provide a definition of this if missing (delete after next dejagnu release).
if { [info procs prune_warnings] == "" } then {
}
}
-# Utility used by mike-gcc.exp and c-torture.exp.
-# Check the compiler(/assembler/linker) output for text indicating that
-# the testcase should be marked as "unsupported".
-#
-# When dealing with a large number of tests, it's difficult to weed out the
-# ones that are too big for a particular cpu (eg: 16 bit with a small amount
-# of memory). There are various ways to deal with this. Here's one.
-# Fortunately, all of the cases where this is likely to happen will be using
-# gld so we can tell what the error text will look like.
-
-proc ${tool}_check_unsupported_p { output } {
- if [regexp "(^|\n)\[^\n\]*: region \[^\n\]* is full" $output] {
- return "memory full"
- }
- return ""
-}
-
# Prune messages from g77 that aren't useful.
proc prune_g77_output { text } {