5 ! Before invalid memory was accessed because an absent, optional
6 ! argument was packed before passing it as absent actual.
7 ! Getting it to crash is difficult, but valgrind shows the problem.
10 INTEGER, PARAMETER :: dp
=KIND(0.0D0
)
13 REAL(dp
), DIMENSION(45), INTENT(OUT
), &
15 if (present(a
)) STOP 1
18 REAL(dp
), DIMENSION(:, :), INTENT(OUT
), &