fUnit 0.0.1 → 0.0.2

data/{LICENSE → COPYING}

@@ -21,51 +21,51 @@ Government Agency Point of Contact: funit-support@rubyforge.org
 1. DEFINITIONS
 
 A. "Contributor" means Government Agency, as the developer of the
-   Original Software, and any entity that makes a Modification.
+Original Software, and any entity that makes a Modification.
 
 B. "Covered Patents" mean patent claims licensable by a Contributor
-   that are necessarily infringed by the use or sale of its Modification
-   alone or when combined with the Subject Software.
+that are necessarily infringed by the use or sale of its Modification
+alone or when combined with the Subject Software.
 
 C. "Display" means the showing of a copy of the Subject Software,
-   either directly or by means of an image, or any other device.
+either directly or by means of an image, or any other device.
 
 D. "Distribution" means conveyance or transfer of the Subject
-   Software, regardless of means, to another.
+Software, regardless of means, to another.
 
 E. "Larger Work" means computer software that combines Subject
-   Software, or portions thereof, with software separate from the Subject
-   Software that is not governed by the terms of this Agreement.
+Software, or portions thereof, with software separate from the Subject
+Software that is not governed by the terms of this Agreement.
 
 F. "Modification" means any alteration of, including addition to or
-   deletion from, the substance or structure of either the Original
-   Software or Subject Software, and includes derivative works, as that
-   term is defined in the Copyright Statute, 17 USC 101.  However, the
-   act of including Subject Software as part of a Larger Work does not in
-   and of itself constitute a Modification.
+deletion from, the substance or structure of either the Original
+Software or Subject Software, and includes derivative works, as that
+term is defined in the Copyright Statute, 17 USC 101.  However, the
+act of including Subject Software as part of a Larger Work does not in
+and of itself constitute a Modification.
 
 G. "Original Software" means the computer software first released
-   under this Agreement by Government Agency with Government Agency
-   designation NASA and entitled fUnit, including source code,
-   object code and accompanying documentation, if any.
+under this Agreement by Government Agency with Government Agency
+designation NASA and entitled fUnit, including source code,
+object code and accompanying documentation, if any.
 
 H. "Recipient" means anyone who acquires the Subject Software under
-   this Agreement, including all Contributors.
+this Agreement, including all Contributors.
 
 I. "Redistribution" means Distribution of the Subject Software after a
-   Modification has been made.
+Modification has been made.
 
 J. "Reproduction" means the making of a counterpart, image or copy of
-   the Subject Software.
+the Subject Software.
 
 K. "Sale" means the exchange of the Subject Software for money or
-   equivalent value.
+equivalent value.
 
 L. "Subject Software" means the Original Software, Modifications, or
-   any respective parts thereof.
+any respective parts thereof.
 
 M. "Use" means the application or employment of the Subject Software
-   for any purpose.
+for any purpose.
 
 2. GRANT OF RIGHTS
 

data/README

@@ -1,3 +1,27 @@
-fUnit - a Fortran Unit Testing Framework
+= FUnit: a Fortran Unit Testing Framework
 
-See docs/ for more information.
+FUnit is a unit testing framework for Fortran modules.
+Unit tests are written in Fortran fragments that use a small
+set of testing-specific extensions.  FUnit transforms these
+fragments into valid Fortran code and compiles,
+links, and runs them against the module under test.
+ 
+== Prerequisites
+
+1. A Fortran 90/95/2003 compiler (set via F9X environment variable)
+2. {The Ruby language}[http://www.ruby-lang.org/]
+3. {RubyGems package manager}[http://rubyforge.org/projects/rubygems/]
+
+== Installation
+
+ gem install funit
+
+== To Do
+
+* Make tests so that they fail gracefully if Fortran compiler not found.
+* Work out RubyGEM packaging kinks.
+* Change from CamelCase to snake_case.
+* Use 'test' keyword instead of 'beginTest' business.
+* Clean up documentation.
+* To increase portability, create a single, stand-alone executable with
+  Erik Veenstra's RubyScript2Exe[http://www.erikveen.dds.nl/rubyscript2exe/].

data/Rakefile

@@ -0,0 +1,97 @@
+# Rakefile for fUnit  -*- ruby -*-
+#
+# Copyright 2006 United States Government as represented by NASA Langley
+# Research Center, Hampton, Virginia.
+#
+# This file is governed by the OSI-approved, NASA Open Source Agreement.
+# See COPYING for details.
+
+begin
+  require 'rubygems'
+  require 'rake/gempackagetask'
+  require 'code_statistics'
+rescue Exception
+  nil
+end
+
+require 'rake/testtask'
+require 'rake/rdoctask'
+
+PKG_VERSION = '0.0.2'
+
+PKG_FILES = FileList[
+  '[A-Z]*',
+  'bin/**/*',
+  'docs/**/*',
+  'examples/**/*',
+  'lib/**/*',
+  'tests/**/*.rb'
+]
+
+desc 'Default task'
+task :default => [:test]
+
+rd = Rake::RDocTask.new do |rdoc|
+  rdoc.main = 'README'
+  rdoc.rdoc_dir = 'docs/html'
+  rdoc.title = 'fUnit: Fortran Unit Testing'
+  rdoc.options << '--inline-source' << '--main' << 'README'
+  rdoc.rdoc_files.include( 'README', 'COPYING' )
+  rdoc.rdoc_files.include( 'lib/**/*.rb' )
+end
+
+desc 'Upload current documentation to Rubyforge'
+task :upload_docs => [:rdoc] do
+  sh 'scp -r docs/html/* rubyforge.org:/var/www/gforge-projects/funit/'
+end
+
+Rake::TestTask.new do |t|
+  t.test_files = [ 'tests/ts_funit.rb' ]
+  t.warning = true
+  t.verbose = true
+  t.libs << 'tests'
+end
+
+if ! defined?(Gem)
+  $stderr.puts 'Package Target requires RubyGEMs'
+else
+  spec = Gem::Specification.new do |s|
+    s.name     = 'fUnit'
+    s.version  = PKG_VERSION
+    s.files    = PKG_FILES.to_a
+    s.author   = 'fUnit Team'
+    s.email    = 'funit-support@rubyforge.org'
+    s.homepage = 'http://funit.rubyforge.org/'
+    s.platform = Gem::Platform::RUBY
+    s.summary  = 'A Fortran Unit Testing Framework'
+    s.description = <<-EOF
+      FUnit is a unit testing framework for Fortran modules.
+      Unit tests are written in Fortran fragments that use a small
+      set of testing-specific extensions.  FUnit transforms these
+      fragments into valid Fortran code and compiles, links, and
+      runs them against the module under test.
+    EOF
+    s.rubyforge_project  = 'funit'
+    s.require_path       = 'lib'
+    s.autorequire        = 'funit'
+    s.bindir             = 'bin'
+    s.executable         = 'funit'
+    s.test_suite_file    = 'tests/ts_funit.rb'
+    s.has_rdoc           = true
+    s.rdoc_options       = rd.options
+    s.extra_rdoc_files   = rd.rdoc_files.reject{|f| f.match(/\.rb$/)}.to_a
+  end
+  Rake::GemPackageTask.new(spec) do |pkg|
+    pkg.need_tar = true
+    pkg.need_zip = true
+  end
+end
+
+desc 'Show code statistics'
+task :stats do
+  if ! defined?(CodeStatistics)
+    $stderr.puts 'Stats target requires Rails'
+  else
+    CodeStatistics.new( %w[Source lib], %w[Units tests] ).to_s
+  end
+end

data/docs/html/classes/Funit.html

@@ -0,0 +1,390 @@
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE html 
+     PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+  <title>Module: Funit</title>
+  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
+  <meta http-equiv="Content-Script-Type" content="text/javascript" />
+  <link rel="stylesheet" href=".././rdoc-style.css" type="text/css" media="screen" />
+  <script type="text/javascript">
+  // <![CDATA[
+
+  function popupCode( url ) {
+    window.open(url, "Code", "resizable=yes,scrollbars=yes,toolbar=no,status=no,height=150,width=400")
+  }
+
+  function toggleCode( id ) {
+    if ( document.getElementById )
+      elem = document.getElementById( id );
+    else if ( document.all )
+      elem = eval( "document.all." + id );
+    else
+      return false;
+
+    elemStyle = elem.style;
+    
+    if ( elemStyle.display != "block" ) {
+      elemStyle.display = "block"
+    } else {
+      elemStyle.display = "none"
+    }
+
+    return true;
+  }
+  
+  // Make codeblocks hidden by default
+  document.writeln( "<style type=\"text/css\">div.method-source-code { display: none }</style>" )
+  
+  // ]]>
+  </script>
+
+</head>
+<body>
+
+
+
+    <div id="classHeader">
+        <table class="header-table">
+        <tr class="top-aligned-row">
+          <td><strong>Module</strong></td>
+          <td class="class-name-in-header">Funit</td>
+        </tr>
+        <tr class="top-aligned-row">
+            <td><strong>In:</strong></td>
+            <td>
+                <a href="../files/lib/funit_rb.html">
+                lib/funit.rb
+                </a>
+        <br />
+                <a href="../files/lib/funit/assertions_rb.html">
+                lib/funit/assertions.rb
+                </a>
+        <br />
+                <a href="../files/lib/funit/fortran_deps_rb.html">
+                lib/funit/fortran_deps.rb
+                </a>
+        <br />
+                <a href="../files/lib/funit/functions_rb.html">
+                lib/funit/functions.rb
+                </a>
+        <br />
+                <a href="../files/lib/funit/test_suite_rb.html">
+                lib/funit/test_suite.rb
+                </a>
+        <br />
+            </td>
+        </tr>
+
+        </table>
+    </div>
+  <!-- banner header -->
+
+  <div id="bodyContent">
+
+
+
+  <div id="contextContent">
+
+
+
+   </div>
+
+    <div id="method-list">
+      <h3 class="section-bar">Methods</h3>
+
+      <div class="name-list">
+      <a href="#M000008">compileTests</a>&nbsp;&nbsp;
+      <a href="#M000003">ftkExists?</a>&nbsp;&nbsp;
+      <a href="#M000004">parseCommandLine</a>&nbsp;&nbsp;
+      <a href="#M000002">requestedModules</a>&nbsp;&nbsp;
+      <a href="#M000001">runAllFtks</a>&nbsp;&nbsp;
+      <a href="#M000006">syntaxError</a>&nbsp;&nbsp;
+      <a href="#M000007">warning</a>&nbsp;&nbsp;
+      <a href="#M000005">writeTestRunner</a>&nbsp;&nbsp;
+      </div>
+    </div>
+
+  </div>
+
+
+    <!-- if includes -->
+    <div id="includes">
+      <h3 class="section-bar">Included Modules</h3>
+
+      <div id="includes-list">
+        <span class="include-name"><a href="Funit/Assertions.html">Funit::Assertions</a></span>
+      </div>
+    </div>
+
+    <div id="section">
+
+    <div id="class-list">
+      <h3 class="section-bar">Classes and Modules</h3>
+
+      Module <a href="Funit/Assertions.html" class="link">Funit::Assertions</a><br />
+Class <a href="Funit/Compiler.html" class="link">Funit::Compiler</a><br />
+Class <a href="Funit/Depend.html" class="link">Funit::Depend</a><br />
+Class <a href="Funit/TestSuite.html" class="link">Funit::TestSuite</a><br />
+
+    </div>
+
+
+
+
+      
+
+
+    <!-- if method_list -->
+    <div id="methods">
+      <h3 class="section-bar">Public Instance methods</h3>
+
+      <div id="method-M000008" class="method-detail">
+        <a name="M000008"></a>
+
+        <div class="method-heading">
+          <a href="#M000008" class="method-signature">
+          <span class="method-name">compileTests</span><span class="method-args">(testSuites)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000008-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000008-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 111</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">compileTests</span> <span class="ruby-identifier">testSuites</span>
+    <span class="ruby-identifier">puts</span> <span class="ruby-value str">&quot;computing dependencies&quot;</span>
+    <span class="ruby-identifier">dependencies</span> = <span class="ruby-constant">Depend</span>.<span class="ruby-identifier">new</span>([<span class="ruby-value str">'.'</span>, <span class="ruby-value str">'../LibF90'</span>, <span class="ruby-value str">'../PHYSICS_DEPS'</span>])
+    <span class="ruby-identifier">puts</span> <span class="ruby-value str">&quot;locating associated source files and sorting for compilation&quot;</span>
+    <span class="ruby-identifier">requiredSources</span> = <span class="ruby-identifier">dependencies</span>.<span class="ruby-identifier">required_source_files</span>(<span class="ruby-value str">'TestRunner.f90'</span>)
+
+    <span class="ruby-identifier">puts</span> <span class="ruby-identifier">compile</span> = <span class="ruby-node">&quot;#{ENV['F9X']} #{ENV['F9X_LDFLAGS']} -o TestRunner \\\n  #{requiredSources.join(&quot; \\\n  &quot;)}&quot;</span>
+
+    <span class="ruby-identifier">raise</span> <span class="ruby-value str">&quot;Compile failed.&quot;</span> <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">system</span>(<span class="ruby-identifier">compile</span>)
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+      <div id="method-M000003" class="method-detail">
+        <a name="M000003"></a>
+
+        <div class="method-heading">
+          <a href="#M000003" class="method-signature">
+          <span class="method-name">ftkExists?</span><span class="method-args">(moduleName)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000003-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000003-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 30</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">ftkExists?</span>(<span class="ruby-identifier">moduleName</span>)
+    <span class="ruby-constant">File</span>.<span class="ruby-identifier">exists?</span> <span class="ruby-identifier">moduleName</span><span class="ruby-operator">+</span><span class="ruby-value str">&quot;MT.ftk&quot;</span>
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+      <div id="method-M000004" class="method-detail">
+        <a name="M000004"></a>
+
+        <div class="method-heading">
+          <a href="#M000004" class="method-signature">
+          <span class="method-name">parseCommandLine</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000004-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000004-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 34</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">parseCommandLine</span>
+
+    <span class="ruby-identifier">moduleNames</span> = <span class="ruby-identifier">requestedModules</span>(<span class="ruby-constant">ARGV</span>)
+
+    <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">moduleNames</span>.<span class="ruby-identifier">empty?</span>
+      <span class="ruby-identifier">raise</span> <span class="ruby-value str">&quot;   *Error: no test suites found in this directory&quot;</span>
+    <span class="ruby-keyword kw">end</span>
+
+    <span class="ruby-identifier">moduleNames</span>.<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">mod</span><span class="ruby-operator">|</span>
+      <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">ftkExists?</span>(<span class="ruby-identifier">mod</span>) 
+        <span class="ruby-identifier">errorMessage</span> = <span class="ruby-value str">&quot;Error: could not find test suite \#{mod}MT.ftk\nTest suites available in this directory:\n\#{requestedModules([]).join(' ')}\n\nUsage: \#{File.basename $0} [test names (w/o MT.ftk suffix)]\n&quot;</span>
+        <span class="ruby-identifier">raise</span> <span class="ruby-identifier">errorMessage</span>
+      <span class="ruby-keyword kw">end</span>
+    <span class="ruby-keyword kw">end</span>
+
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+      <div id="method-M000002" class="method-detail">
+        <a name="M000002"></a>
+
+        <div class="method-heading">
+          <a href="#M000002" class="method-signature">
+          <span class="method-name">requestedModules</span><span class="method-args">(moduleNames)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000002-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000002-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 23</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">requestedModules</span>(<span class="ruby-identifier">moduleNames</span>)
+    <span class="ruby-keyword kw">if</span> (<span class="ruby-identifier">moduleNames</span>.<span class="ruby-identifier">empty?</span>)
+      <span class="ruby-identifier">moduleNames</span> = <span class="ruby-constant">Dir</span>[<span class="ruby-value str">&quot;*MT.ftk&quot;</span>].<span class="ruby-identifier">each</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">mod</span><span class="ruby-operator">|</span> <span class="ruby-identifier">mod</span>.<span class="ruby-identifier">chomp!</span> <span class="ruby-value str">&quot;MT.ftk&quot;</span> }
+    <span class="ruby-keyword kw">end</span>
+    <span class="ruby-identifier">moduleNames</span>
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+      <div id="method-M000001" class="method-detail">
+        <a name="M000001"></a>
+
+        <div class="method-heading">
+          <a href="#M000001" class="method-signature">
+          <span class="method-name">runAllFtks</span><span class="method-args">()</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000001-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000001-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit.rb, line 7</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">runAllFtks</span>
+    <span class="ruby-constant">Compiler</span>.<span class="ruby-identifier">new</span> <span class="ruby-comment cmt"># a test for compiler env set (remove this later)</span>
+    <span class="ruby-identifier">writeTestRunner</span>(<span class="ruby-identifier">testSuites</span> = <span class="ruby-identifier">parseCommandLine</span>)
+
+    <span class="ruby-comment cmt"># convert each *MT.ftk file into a pure Fortran9x file:</span>
+    <span class="ruby-identifier">testSuites</span>.<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">testSuite</span><span class="ruby-operator">|</span>
+      <span class="ruby-identifier">testSuiteF90</span> = <span class="ruby-constant">TestSuite</span>.<span class="ruby-identifier">new</span>(<span class="ruby-identifier">testSuite</span>)
+    <span class="ruby-keyword kw">end</span>
+ 
+    <span class="ruby-identifier">compileTests</span> <span class="ruby-identifier">testSuites</span>
+
+    <span class="ruby-identifier">raise</span> <span class="ruby-value str">&quot;Failed to execute TestRunner&quot;</span> <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">system</span>(<span class="ruby-value str">&quot;./TestRunner&quot;</span>)
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+      <div id="method-M000006" class="method-detail">
+        <a name="M000006"></a>
+
+        <div class="method-heading">
+          <a href="#M000006" class="method-signature">
+          <span class="method-name">syntaxError</span><span class="method-args">( message, testSuite )</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000006-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000006-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 103</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">syntaxError</span>( <span class="ruby-identifier">message</span>, <span class="ruby-identifier">testSuite</span> )
+    <span class="ruby-identifier">raise</span> <span class="ruby-node">&quot;\n   *Error: #{message} [#{testSuite}MT.ftk:#$.]\n\n&quot;</span>
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+      <div id="method-M000007" class="method-detail">
+        <a name="M000007"></a>
+
+        <div class="method-heading">
+          <a href="#M000007" class="method-signature">
+          <span class="method-name">warning</span><span class="method-args">( message, testSuite )</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000007-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000007-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 107</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">warning</span>( <span class="ruby-identifier">message</span>, <span class="ruby-identifier">testSuite</span> )
+    <span class="ruby-identifier">$stderr</span>.<span class="ruby-identifier">puts</span> <span class="ruby-node">&quot;\n *Warning: #{message} [#{testSuite}MT.ftk:#$.]&quot;</span>
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+      <div id="method-M000005" class="method-detail">
+        <a name="M000005"></a>
+
+        <div class="method-heading">
+          <a href="#M000005" class="method-signature">
+          <span class="method-name">writeTestRunner</span><span class="method-args">(testSuites)</span>
+          </a>
+        </div>
+      
+        <div class="method-description">
+          <p><a class="source-toggle" href="#"
+            onclick="toggleCode('M000005-source');return false;">[Source]</a></p>
+          <div class="method-source-code" id="M000005-source">
+<pre>
+<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 58</span>
+  <span class="ruby-keyword kw">def</span> <span class="ruby-identifier">writeTestRunner</span> <span class="ruby-identifier">testSuites</span>
+
+    <span class="ruby-constant">File</span>.<span class="ruby-identifier">delete</span>(<span class="ruby-value str">&quot;TestRunner.f90&quot;</span>) <span class="ruby-keyword kw">if</span> <span class="ruby-constant">File</span>.<span class="ruby-identifier">exists?</span>(<span class="ruby-value str">&quot;TestRunner.f90&quot;</span>)
+    <span class="ruby-identifier">testRunner</span> = <span class="ruby-constant">File</span>.<span class="ruby-identifier">new</span> <span class="ruby-value str">&quot;TestRunner.f90&quot;</span>, <span class="ruby-value str">&quot;w&quot;</span>
+
+    <span class="ruby-identifier">testRunner</span>.<span class="ruby-identifier">puts</span> <span class="ruby-value str">&quot;! TestRunner.f90 - runs Fortran mobility test suites\n!\n! [Dynamically generated by \#{File.basename $0} Ruby script \#{Time.now}.]\n\nprogram TestRunner\n\n&quot;</span>
+
+    <span class="ruby-identifier">testSuites</span>.<span class="ruby-identifier">each</span> { <span class="ruby-operator">|</span><span class="ruby-identifier">testSuite</span><span class="ruby-operator">|</span> <span class="ruby-identifier">testRunner</span>.<span class="ruby-identifier">puts</span> <span class="ruby-node">&quot; use #{testSuite}MT&quot;</span> }
+
+    <span class="ruby-identifier">testRunner</span>.<span class="ruby-identifier">puts</span> <span class="ruby-value str">&quot;\nimplicit none\n\ninteger :: numTests, numAsserts, numAssertsTested, numFailures\n&quot;</span>
+
+    <span class="ruby-identifier">testSuites</span>.<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">testSuite</span><span class="ruby-operator">|</span>
+      <span class="ruby-identifier">testRunner</span>.<span class="ruby-identifier">puts</span> <span class="ruby-value str">&quot;\nprint *, \&quot;\&quot;\nprint *, \&quot;\#{testSuite} test suite:\&quot;\ncall MT\#{testSuite}( numTests, &amp;\nnumAsserts, numAssertsTested, numFailures )\nprint *, \&quot;Passed\&quot;, numAssertsTested, \&quot;of\&quot;, numAsserts, &amp;\n\&quot;possible asserts comprising\&quot;, &amp;\nnumTests-numFailures, \&quot;of\&quot;, numTests, \&quot;tests.\&quot;\n&quot;</span>
+    <span class="ruby-keyword kw">end</span>
+
+    <span class="ruby-identifier">testRunner</span>.<span class="ruby-identifier">puts</span> <span class="ruby-value str">&quot;\n print *, \&quot;\&quot;&quot;</span>
+    <span class="ruby-identifier">testRunner</span>.<span class="ruby-identifier">puts</span> <span class="ruby-value str">&quot;\nend program TestRunner&quot;</span>
+    <span class="ruby-identifier">testRunner</span>.<span class="ruby-identifier">close</span>
+    <span class="ruby-constant">File</span>.<span class="ruby-identifier">chmod</span>(<span class="ruby-value">0444</span>,<span class="ruby-value str">&quot;TestRunner.f90&quot;</span>)
+  <span class="ruby-keyword kw">end</span>
+</pre>
+          </div>
+        </div>
+      </div>
+
+
+    </div>
+
+
+  </div>
+
+
+<div id="validator-badges">
+  <p><small><a href="http://validator.w3.org/check/referer">[Validate]</a></small></p>
+</div>
+
+</body>
+</html>