blob: bbc89e0e4822daa5e05ce0d20bb121127301c9cd [file] [log] [blame]
program testaltreturn
call testsub(4,3,200,10,200,E=10,D=2)
200 print *, "hello, world!"
contains
subroutine testsub(A,B,*,C,*,D,E) !<<<<< 8,5,8,9,2,1,0,4,3,6,5,pass
end subroutine
end program