diff options
| author | Brooks Moses <brooks.moses@codesourcery.com> | 2007-05-28 20:54:49 +0000 |
|---|---|---|
| committer | Brooks Moses <brooks@gcc.gnu.org> | 2007-05-28 13:54:49 -0700 |
| commit | 6ed345576f8185b5a0cdcbccc253e038aa26aa9d (patch) | |
| tree | efaa1640af3f3ee70755c21adedf5e844eadb6ae /gcc | |
| parent | 3b45d6c4896ce08bf70adde2a392f1293ee3766b (diff) | |
| download | gcc-6ed345576f8185b5a0cdcbccc253e038aa26aa9d.zip gcc-6ed345576f8185b5a0cdcbccc253e038aa26aa9d.tar.gz gcc-6ed345576f8185b5a0cdcbccc253e038aa26aa9d.tar.bz2 | |
re PR fortran/31972 (Internal Error occurs when TRANSFER contains hollerith argument)
PR fortran/31972
* transfer_hollerith_1.f90: New test.
From-SVN: r125142
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90 | 14 |
2 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2e546eb..a71bc7a 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 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 } + |