From 6ed345576f8185b5a0cdcbccc253e038aa26aa9d Mon Sep 17 00:00:00 2001
From: Brooks Moses <brooks.moses@codesourcery.com>
Date: Mon, 28 May 2007 20:54:49 +0000
Subject: [PATCH] re PR fortran/31972 (Internal Error occurs when TRANSFER
 contains hollerith argument)

PR fortran/31972
* transfer_hollerith_1.f90: New test.

From-SVN: r125142
---
 gcc/testsuite/ChangeLog                            |  5 +++++
 gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90 | 14 ++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2e546eb2c02..a71bc7a1c26 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-28  Brooks Moses  <brooks.moses@codesourcery.com>
+
+	PR fortran/31972
+	* transfer_hollerith_1.f90: New test.
+
 2007-05-28  Andrew Pinski  <andrew_pinski@playstation.sony.com>
 
 	PR tree-opt/32100
diff --git a/gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90 b/gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90
new file mode 100644
index 00000000000..2ebff5a573b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90
@@ -0,0 +1,14 @@
+! { dg-do compile }
+! { dg-options "-O2" }
+! PR 31972, ICE in transfer of Hollerith constant
+  integer, dimension(1) :: i
+  integer :: j
+  i = (/ transfer(4HSOLR, 0) /)
+
+  j = transfer(0, 4HSOLR) ! { dg-error "must not be HOLLERITH" }
+end
+
+! { dg-warning "Hollerith constant" "const" { target *-*-* } 6 }
+
+! { dg-warning "Hollerith constant" "const" { target *-*-* } 8 }
+