aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Named-parameters/Fortran/named-parameters-1.f Normal file
View file

@ -0,0 +1,5 @@
subroutine a_sub(arg1, arg2, arg3)
integer, intent(in) :: arg1, arg2
integer, intent(out), optional :: arg3
! ...
end subroutine a_sub

4
Task/Named-parameters/Fortran/named-parameters-2.f Normal file
View file

@ -0,0 +1,4 @@
! usage
integer :: r
call a_sub(1,2, r)
call a_sub(arg2=2, arg1=1)

5
Task/Named-parameters/Fortran/named-parameters-3.f Normal file
View file

@ -0,0 +1,5 @@
subroutine b_sub(arg1, arg2)
integer, intent(in), optional :: arg1
integer, intent(in) :: arg2
!...
end subroutine b_sub

4
Task/Named-parameters/Fortran/named-parameters-4.f Normal file
View file

@ -0,0 +1,4 @@
call b_sub(1) ! error: missing non optional arg2
call b_sub(arg2=1) ! ok
call b_sub(1, 2) ! ok: arg1 is 1, arg2 is 2
call b_sub(arg2=2, arg1=1) ! the same as the previous line