Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/mvbits_8.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! PR fortran/38883 ! This ICE'd because the temporary-creation in the MVBITS call was wrong. PROGRAM main IMPLICIT NONE TYPE inner INTEGER :: i INTEGER :: j END TYPE inner TYPE outer TYPE(inner) :: comp(2) END TYPE outer TYPE(outer) :: var var%comp%i = (/ 1, 2 /) var%comp%j = (/ 3, 4 /) CALL foobar (var, 1, 2) IF (ANY (var%comp%i /= (/ 1, 2 /))) STOP 1 IF (ANY (var%comp%j /= (/ 3, 4 /))) STOP 2 CONTAINS SUBROUTINE foobar (x, lower, upper) TYPE(outer), INTENT(INOUT) :: x INTEGER, INTENT(IN) :: lower, upper CALL MVBITS (x%comp%i, 1, 2, x%comp(lower:upper)%i, 1) END SUBROUTINE foobar END PROGRAM main