blob: 6de8d9cfc1666de36af6b94678f1f03c0d3beaa9 [file] [log] [blame]
program main
use module1
implicit none
integer :: blah
blah = i + j + k !<<<<< 6, 12, 6, 13, pass
i = blah + j
call mult(i,j,blah)
contains
subroutine mult(a,b,c)
integer, intent(in) :: a, b, c
integer :: temp
temp = a*b*c
end subroutine
end program