diff options
| author | brooks <brooks@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-28 20:54:49 +0000 |
|---|---|---|
| committer | brooks <brooks@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-28 20:54:49 +0000 |
| commit | 7beea9f45543724bb0b2cde818422ea3aad31849 (patch) | |
| tree | efaa1640af3f3ee70755c21adedf5e844eadb6ae | |
| parent | 7416ea77267bd44714cd0efcb3ce3cbee8e8c3bb (diff) | |
| download | ppe42-gcc-7beea9f45543724bb0b2cde818422ea3aad31849.tar.gz ppe42-gcc-7beea9f45543724bb0b2cde818422ea3aad31849.zip | |
PR fortran/31972
* transfer_hollerith_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125142 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 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 } + |
