From 748e31c32624a6da22db9330601faf19aaf24f05 Mon Sep 17 00:00:00 2001
From: "Steven G. Kargl" <kargls@comcast.net>
Date: Wed, 30 Mar 2005 00:35:23 +0000
Subject: New test for -fdefault-integer-8 and -fdefault-real-8

From-SVN: r97222
---
 gcc/testsuite/ChangeLog                 |  4 ++++
 gcc/testsuite/gfortran.dg/promotion.f90 | 12 ++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/promotion.f90

(limited to 'gcc')

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 81060c6..7c75344 100644
--- 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
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
-- 
cgit v1.1