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

+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

gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90

+! { 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 }
+