blob: 92c4b150db8274ad49d6f67afb997cbb2f3f40d5 (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do compile }
! { dg-additional-options "-O0 -fdump-tree-original" }
! PR 59345 - pack/unpack was not needed here.
SUBROUTINE S1(A)
REAL :: A(3)
CALL S2(-A)
END SUBROUTINE
! { dg-final { scan-tree-dump-not "_gfortran_internal_pack" "original" } }
! { dg-final { scan-tree-dump-not "_gfortran_internal_unpack" "original" } }
|
