there is no diagnostics generated for the following code:
print *, pack ( array=[1,2],mask=.true.,vector= ) ! Illegal
neither at compile nor at run-time even with "-check all" specified.
The standard requires that the size of vector in the above case has to be at least as large as array.