assembly_external
assembly_interface
object('System.Int32')
try...throw...catch...finally...end try
subroutine blah(s)
character(len=*), intent(in) :: s
assembly_interface(name='WriteLine')
assembly_external(name='System.Console.WriteLine') foo
call foo('{0}, world.', s)
end subroutine
Integration with the Common Language Specification
(CLR = Common Language Runtime)
try call do_something catch(exception) call recover finally call cleanup_regardless end try
object("System.String")str,str1
Object('System.Object')obj
character*10 fred
fred="r"
str=new@("System.String",fred)
obj=cast@(str,"System.Object")
str1=cast@(obj,"System.String")
call wr(str1)
end