diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/transfer_hollerith_1.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
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 000000000..2ebff5a57 --- /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 } + |