Do not cost the permute node that are part of SLP load-lanes
[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / compile / pr45634.f90
blobab0c33ad32d00e53966987f37df680f09cbe0daf
1 SUBROUTINE RCRDRD (VTYP)
2 CHARACTER(4), INTENT(OUT) :: VTYP
3 CHARACTER(1), SAVE :: DBL = "D"
4 VTYP = DBL
5 END