diff options
Diffstat (limited to 'gcc/testsuite/g77.dg')
21 files changed, 185 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.dg/fbackslash.f b/gcc/testsuite/g77.dg/fbackslash.f new file mode 100644 index 00000000000..d2227adb67b --- /dev/null +++ b/gcc/testsuite/g77.dg/fbackslash.f @@ -0,0 +1,7 @@ +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 diff --git a/gcc/testsuite/g77.dg/fcase-preserve.f b/gcc/testsuite/g77.dg/fcase-preserve.f new file mode 100644 index 00000000000..f1d1eab6fd4 --- /dev/null +++ b/gcc/testsuite/g77.dg/fcase-preserve.f @@ -0,0 +1,9 @@ +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 diff --git a/gcc/testsuite/g77.dg/ff90-1.f b/gcc/testsuite/g77.dg/ff90-1.f new file mode 100644 index 00000000000..2120f530ef1 --- /dev/null +++ b/gcc/testsuite/g77.dg/ff90-1.f @@ -0,0 +1,15 @@ +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 diff --git a/gcc/testsuite/g77.dg/ffixed-line-length-0.f b/gcc/testsuite/g77.dg/ffixed-line-length-0.f new file mode 100644 index 00000000000..80c4f3f56ca --- /dev/null +++ b/gcc/testsuite/g77.dg/ffixed-line-length-0.f @@ -0,0 +1,7 @@ +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 diff --git a/gcc/testsuite/g77.dg/ffixed-line-length-132.f b/gcc/testsuite/g77.dg/ffixed-line-length-132.f new file mode 100644 index 00000000000..6101696758c --- /dev/null +++ b/gcc/testsuite/g77.dg/ffixed-line-length-132.f @@ -0,0 +1,7 @@ +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* diff --git a/gcc/testsuite/g77.dg/ffixed-line-length-7.f b/gcc/testsuite/g77.dg/ffixed-line-length-7.f new file mode 100644 index 00000000000..8a9abf48050 --- /dev/null +++ b/gcc/testsuite/g77.dg/ffixed-line-length-7.f @@ -0,0 +1,8 @@ +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* diff --git a/gcc/testsuite/g77.dg/ffixed-line-length-72.f b/gcc/testsuite/g77.dg/ffixed-line-length-72.f new file mode 100644 index 00000000000..8a2fad1fad2 --- /dev/null +++ b/gcc/testsuite/g77.dg/ffixed-line-length-72.f @@ -0,0 +1,7 @@ +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* diff --git a/gcc/testsuite/g77.dg/ffixed-line-length-none.f b/gcc/testsuite/g77.dg/ffixed-line-length-none.f new file mode 100644 index 00000000000..b4a50147f12 --- /dev/null +++ b/gcc/testsuite/g77.dg/ffixed-line-length-none.f @@ -0,0 +1,7 @@ +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 diff --git a/gcc/testsuite/g77.dg/ffree-form-1.f b/gcc/testsuite/g77.dg/ffree-form-1.f new file mode 100644 index 00000000000..88ddeefb32c --- /dev/null +++ b/gcc/testsuite/g77.dg/ffree-form-1.f @@ -0,0 +1,6 @@ +! Test compiler flags: -ffree-form +! Origin: David Billinghurst <David.Billinghurst@riotinto.com> +! +! { dg-do compile } +! { dg-options "-ffree-form" } +end diff --git a/gcc/testsuite/g77.dg/fno-backslash.f b/gcc/testsuite/g77.dg/fno-backslash.f new file mode 100644 index 00000000000..7488cb6e98e --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-backslash.f @@ -0,0 +1,7 @@ +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 diff --git a/gcc/testsuite/g77.dg/fno-f90-1.f b/gcc/testsuite/g77.dg/fno-f90-1.f new file mode 100644 index 00000000000..ac0f967505b --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-f90-1.f @@ -0,0 +1,15 @@ +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 diff --git a/gcc/testsuite/g77.dg/fno-fixed-form-1.f b/gcc/testsuite/g77.dg/fno-fixed-form-1.f new file mode 100644 index 00000000000..df2dd1d70e5 --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-fixed-form-1.f @@ -0,0 +1,6 @@ +! Test compiler flags: -fno-fixed-form +! Origin: David Billinghurst <David.Billinghurst@riotinto.com> +! +! { dg-do compile } +! { dg-options "-fno-fixed-form" } +end diff --git a/gcc/testsuite/g77.dg/fno-onetrip.f b/gcc/testsuite/g77.dg/fno-onetrip.f new file mode 100644 index 00000000000..781e272f972 --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-onetrip.f @@ -0,0 +1,9 @@ +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 diff --git a/gcc/testsuite/g77.dg/fno-typeless-boz.f b/gcc/testsuite/g77.dg/fno-typeless-boz.f new file mode 100644 index 00000000000..3faa550cce8 --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-typeless-boz.f @@ -0,0 +1,10 @@ +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 diff --git a/gcc/testsuite/g77.dg/fno-underscoring.f b/gcc/testsuite/g77.dg/fno-underscoring.f new file mode 100644 index 00000000000..b91320b4c0b --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-underscoring.f @@ -0,0 +1,8 @@ +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_" } } diff --git a/gcc/testsuite/g77.dg/fno-vxt-1.f b/gcc/testsuite/g77.dg/fno-vxt-1.f new file mode 100644 index 00000000000..1277fb50c6b --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-vxt-1.f @@ -0,0 +1,10 @@ +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 diff --git a/gcc/testsuite/g77.dg/fonetrip.f b/gcc/testsuite/g77.dg/fonetrip.f new file mode 100644 index 00000000000..dec61bcb364 --- /dev/null +++ b/gcc/testsuite/g77.dg/fonetrip.f @@ -0,0 +1,10 @@ +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 diff --git a/gcc/testsuite/g77.dg/ftypeless-boz.f b/gcc/testsuite/g77.dg/ftypeless-boz.f new file mode 100644 index 00000000000..b72cb177546 --- /dev/null +++ b/gcc/testsuite/g77.dg/ftypeless-boz.f @@ -0,0 +1,10 @@ +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 diff --git a/gcc/testsuite/g77.dg/fugly-assumed.f b/gcc/testsuite/g77.dg/fugly-assumed.f new file mode 100644 index 00000000000..a45e9c8e2b7 --- /dev/null +++ b/gcc/testsuite/g77.dg/fugly-assumed.f @@ -0,0 +1,9 @@ +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 diff --git a/gcc/testsuite/g77.dg/funderscoring.f b/gcc/testsuite/g77.dg/funderscoring.f new file mode 100644 index 00000000000..720b3a7e3e1 --- /dev/null +++ b/gcc/testsuite/g77.dg/funderscoring.f @@ -0,0 +1,8 @@ +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_" } } diff --git a/gcc/testsuite/g77.dg/fvxt-1.f b/gcc/testsuite/g77.dg/fvxt-1.f new file mode 100644 index 00000000000..0cde4f8a36f --- /dev/null +++ b/gcc/testsuite/g77.dg/fvxt-1.f @@ -0,0 +1,10 @@ +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 |