program
main a=1 b=2 i=3 j=4 contains subroutine s implicit integer (a-c), complex(h) , real(w) c=1 h=(4,5) w=3.0 end subroutine end program |
program
main implicit none real :: a real :: b integer :: i integer :: j a=1 b=2 i=3 j=4 contains subroutine s implicit none integer :: c complex :: h real :: w c=1 h=(4,5) w=3.0 end subroutine end program |