Programming

#!/usr/bin/env bash

# @(#) s1	Demonstrate compile, execute with gfortran, g++.

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
pe() { for i;do printf "%s" "$i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for i;do printf "%s" "$i";done; printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && . $C g++ gfortran

pl " File hi.f:"
cat hi.f

pl " Results, hi.f:"
rm -f a.out
gfortran hi.f
./a.out

pl " File hi.cpp:"
cat hi.cpp

pl " Results, hi.cpp:"
rm -f a.out
g++ hi.cpp
./a.out

rm -f a.out

exit 0

$ ./s1

Environment: LC_ALL = C, LANG = en_US.UTF-8
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.18-194.32.1.el5, i686
Distribution        : CentOS release 5.5 (Final) 
GNU bash 3.2.25
g++ (GCC) 4.1.2 20080704 (Red Hat 4.1.2-48)
gfortran GNU Fortran (GCC) 4.1.2 20080704 (Red Hat 4.1.2-48)

-----
 File hi.f:
	program hi
	write(*,*) " Hello, world with write * *"
	print*, " Hello, world with print *"
	end

-----
 Results, hi.f:
  Hello, world with write * *
  Hello, world with print *

-----
 File hi.cpp:
#include <iostream>

using namespace std;

int main()
{
  cout << " Hello, world from c++ with cout" << endl;
  return ( 0 );
}

-----
 Results, hi.cpp:
 Hello, world from c++ with cout