Konrad Konrad1991

## OOP_F2003_Part_1.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                Konrad1991
                / OOP_F2003_Part_1.md
            
            
              Created
              December 20, 2022 14:35
                — forked from n-s-k/OOP_F2003_Part_1.md
            
              
                Object-Oriented Programming in Fortran 2003 Part 1: Code Reusability
              
          
    Object-Oriented Programming in Fortran 2003  Part 1: Code Reusability

Original articles by Mark Leair, PGI Compiler Engineer
This is Part 1 of a series of articles:

Part 1: Code Reusability
Part 2: Data Polymorphism

1. Introduction


## borrow.cpp
#include <iostream>

#include "borrow_checker.hpp"

int main()
{
    auto i = 42;

    // borrow `i` under name `ref`
    borrow_var(ref, i)

## AD.hs
{-# LANGUAGE TypeSynonymInstances #-}
data Dual d = D Float d deriving Show
type Float' = Float

diff :: (Dual Float' -> Dual Float') -> Float -> Float'
diff f x = y'
  where D y y' = f (D x 1)

class VectorSpace v where
  zero  :: v
	#include <iostream>

	#include "borrow_checker.hpp"

	int main()
	{
	auto i = 42;

	// borrow `i` under name `ref`
	borrow_var(ref, i)
	{-# LANGUAGE TypeSynonymInstances #-}
	data Dual d = D Float d deriving Show
	type Float' = Float

	diff :: (Dual Float' -> Dual Float') -> Float -> Float'
	diff f x = y'
	where D y y' = f (D x 1)

	class VectorSpace v where
	zero :: v