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