Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/argument_checking_7.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line source
! { dg-do compile } ! PR31306 ICE with implicit character variables ! Test case from PR and prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> module cyclic implicit none contains function ouch(x,y) ! { dg-error "has no IMPLICIT type" } implicit character(len(ouch)) (x) ! { dg-error "used before it is typed" } implicit character(len(x)+1) (y) ! { dg-error "used before it is typed" } implicit character(len(y)-1) (o) ! { dg-error "used before it is typed" } intent(in) x,y character(len(y)-1) ouch ! { dg-error "used before it is typed" } integer i do i = 1, len(ouch) ouch(i:i) = achar(ieor(iachar(x(i:i)),iachar(y(i:i)))) ! { dg-error "Unclassifiable statement" } end do end function ouch end module cyclic