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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97222 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 81060c6..7c75344 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/promotion.f90 b/gcc/testsuite/gfortran.dg/promotion.f90
new file mode 100644 (file)
index 0000000..d1b9b68
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/promotion.f90
@@ -0,0 +1,12 @@
+! { 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