One more test from me. That doesn’t seem to be language-correct. Although, it must not to make compiler break with segfault. But it does.
Tested with pgfortran 13.10 on windows 7.
subroutine gr1(viborka)
parameter (n=size(viborka))
real :: viborka(:)
end