re PR fortran/31972 (Internal Error occurs when TRANSFER contains hollerith argument)

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

From-SVN: r125142

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2e546eb..a71bc7a 100644 (file)
--- 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 (file)
index 0000000..2ebff5a
--- /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 }
+