New test for -fdefault-integer-8 and -fdefault-real-8

From-SVN: r97222

New test for -fdefault-integer-8 and -fdefault-real-8
From-SVN: r97222
748e31c3 · Steven G. Kargl · Steven G. Kargl · 3ae9eb27 · 748e31c3 · 748e31c3
Commit 748e31c3 authored Mar 30, 2005 by Steven G. Kargl Committed by Steven G. Kargl Mar 30, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 16 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.dg/promotion.f90
+12 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+2005-03-26  Steven G. Kargl  <kargls@comcast.net>
+
+	* gfortran.dg/promotion.f90:  New test.
+
 2005-03-29  Alexandre Oliva  <aoliva@redhat.com>

 	PR middle-end/20491

--- a/gcc/testsuite/gfortran.dg/promotion.f90
+++ b/gcc/testsuite/gfortran.dg/promotion.f90
+! { dg-do run { target i?86-*-* } }
+! { dg-options "-fdefault-integer-8 -fdefault-real-8" }
+program a
+   logical l
+   integer i
+   real x
+   double precision d
+   if (kind(l) /= 8) call abort
+   if (kind(i) /= 8) call abort
+   if (kind(x) /= 8) call abort
+   if (kind(d) /= 8) call abort
+end program a