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