fortran 1.0.0

data/History.txt

@@ -0,0 +1,5 @@
+== 1.0.0 / 2007-07-26
+
+* 1 major enhancement
+  * Birthday!
+

data/License.txt

@@ -0,0 +1,263 @@
+== LICENSE
+
+ NASA OPEN SOURCE AGREEMENT VERSION 1.3
+
+ THIS OPEN SOURCE AGREEMENT ("AGREEMENT") DEFINES THE RIGHTS OF USE,
+ REPRODUCTION, DISTRIBUTION, MODIFICATION AND REDISTRIBUTION OF CERTAIN
+ COMPUTER SOFTWARE ORIGINALLY RELEASED BY THE UNITED STATES GOVERNMENT
+ AS REPRESENTED BY THE GOVERNMENT AGENCY LISTED BELOW ("GOVERNMENT
+ AGENCY").  THE UNITED STATES GOVERNMENT, AS REPRESENTED BY GOVERNMENT
+ AGENCY, IS AN INTENDED THIRD-PARTY BENEFICIARY OF ALL SUBSEQUENT
+ DISTRIBUTIONS OR REDISTRIBUTIONS OF THE SUBJECT SOFTWARE.  ANYONE WHO
+ USES, REPRODUCES, DISTRIBUTES, MODIFIES OR REDISTRIBUTES THE SUBJECT
+ SOFTWARE, AS DEFINED HEREIN, OR ANY PART THEREOF, IS, BY THAT ACTION,
+ ACCEPTING IN FULL THE RESPONSIBILITIES AND OBLIGATIONS CONTAINED IN
+ THIS AGREEMENT.
+
+ Government Agency: NASA Langley Research Center
+ Government Agency Original Software Designation: LAR-17081-1
+ Government Agency Original Software Title: fUnit
+ User Registration Requested: please see clause 3.F.
+ Government Agency Point of Contact: please see clause 5.F.
+
+ 1. DEFINITIONS
+
+ A. "Contributor" means Government Agency, as the developer of the
+ 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.
+
+ C. "Display" means the showing of a copy of the Subject Software,
+ 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.
+
+ 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.
+
+ 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.
+
+ 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.
+
+ H. "Recipient" means anyone who acquires the Subject Software under
+ this Agreement, including all Contributors.
+
+ I. "Redistribution" means Distribution of the Subject Software after a
+ Modification has been made.
+
+ J. "Reproduction" means the making of a counterpart, image or copy of
+ the Subject Software.
+
+ K. "Sale" means the exchange of the Subject Software for money or
+ equivalent value.
+
+ L. "Subject Software" means the Original Software, Modifications, or
+ any respective parts thereof.
+
+ M. "Use" means the application or employment of the Subject Software
+ for any purpose.
+
+ 2. GRANT OF RIGHTS
+
+ A. Under Non-Patent Rights: Subject to the terms and conditions of
+ this Agreement, each Contributor, with respect to its own contribution
+ to the Subject Software, hereby grants to each Recipient a
+ non-exclusive, world-wide, royalty-free license to engage in the
+ following activities pertaining to the Subject Software:
+
+  1. Use
+  2. Distribution
+  3. Reproduction
+  4. Modification
+  5. Redistribution
+  6. Display
+
+ B. Under Patent Rights: Subject to the terms and conditions of this
+ Agreement, each Contributor, with respect to its own contribution to
+ the Subject Software, hereby grants to each Recipient under Covered
+ Patents a non-exclusive, world-wide, royalty-free license to engage in
+ the following activities pertaining to the Subject Software:
+
+  1. Use
+  2. Distribution
+  3. Reproduction
+  4. Sale
+  5. Offer for Sale
+
+ C. The rights granted under Paragraph B. also apply to the combination
+ of a Contributor's Modification and the Subject Software if, at the
+ time the Modification is added by the Contributor, the addition of
+ such Modification causes the combination to be covered by the Covered
+ Patents.  It does not apply to any other combinations that include a
+ Modification.
+
+ D. The rights granted in Paragraphs A. and B. allow the Recipient to
+ sublicense those same rights.  Such sublicense must be under the same
+ terms and conditions of this Agreement.
+
+ 3. OBLIGATIONS OF RECIPIENT
+
+ A. Distribution or Redistribution of the Subject Software must be made
+ under this Agreement except for additions covered under paragraph 3H.
+
+ 1. Whenever a Recipient distributes or redistributes the Subject
+     Software, a copy of this Agreement must be included with each copy
+     of the Subject Software; and
+
+ 2. If Recipient distributes or redistributes the Subject Software in
+     any form other than source code, Recipient must also make the
+     source code freely available, and must provide with each copy of
+     the Subject Software information on how to obtain the source code
+     in a reasonable manner on or through a medium customarily used for
+     software exchange.
+
+ B. Each Recipient must ensure that the following copyright notice
+ appears prominently in the Subject Software:
+
+  Copyright 2007 United States Government as represented by
+  NASA Langley Research Center. No copyright is claimed in
+  the United States under Title 17, U.S. Code. All Other Rights
+  Reserved.
+
+ C. Each Contributor must characterize its alteration of the Subject
+ Software as a Modification and must identify itself as the originator
+ of its Modification in a manner that reasonably allows subsequent
+ Recipients to identify the originator of the Modification.  In
+ fulfillment of these requirements, Contributor must include a file
+ (e.g., a change log file) that describes the alterations made and the
+ date of the alterations, identifies Contributor as originator of the
+ alterations, and consents to characterization of the alterations as a
+ Modification, for example, by including a statement that the
+ Modification is derived, directly or indirectly, from Original
+ Software provided by Government Agency. Once consent is granted, it
+ may not thereafter be revoked.
+
+ D. A Contributor may add its own copyright notice to the Subject
+ Software.  Once a copyright notice has been added to the Subject
+ Software, a Recipient may not remove it without the express permission
+ of the Contributor who added the notice.
+
+ E. A Recipient may not make any representation in the Subject Software
+ or in any promotional, advertising or other material that may be
+ construed as an endorsement by Government Agency or by any prior
+ Recipient of any product or service provided by Recipient, or that may
+ seek to obtain commercial advantage by the fact of Government Agency's
+ or a prior Recipient's participation in this Agreement.
+
+ F. In an effort to track usage and maintain accurate records of the
+ Subject Software, each Recipient, upon receipt of the Subject Software,
+ is requested to provide Government Agency, by e-mail to the Government
+ Agency Point of Contact listed in clause 5.F., the following information:
+ name, institution (if applicable), postal code, and country.
+ Recipient's name and personal information shall be used for statistical
+ purposes only. Once a Recipient makes a Modification available, it is
+ requested that the Recipient inform Government Agency, by e-mail to the
+ Government Agency Point of Contact listed in clause 5.F., how to
+ access the Modification.
+
+ G. Each Contributor represents that that its Modification is believed
+ to be Contributor's original creation and does not violate any
+ existing agreements, regulations, statutes or rules, and further that
+ Contributor has sufficient rights to grant the rights conveyed by this
+ Agreement.
+
+ H. A Recipient may choose to offer, and to charge a fee for, warranty,
+ support, indemnity and/or liability obligations to one or more other
+ Recipients of the Subject Software.  A Recipient may do so, however,
+ only on its own behalf and not on behalf of Government Agency or any
+ other Recipient.  Such a Recipient must make it absolutely clear that
+ any such warranty, support, indemnity and/or liability obligation is
+ offered by that Recipient alone.  Further, such Recipient agrees to
+ indemnify Government Agency and every other Recipient for any
+ liability incurred by them as a result of warranty, support, indemnity
+ and/or liability offered by such Recipient.
+
+ I. A Recipient may create a Larger Work by combining Subject Software
+ with separate software not governed by the terms of this agreement and
+ distribute the Larger Work as a single product. In such case, the
+ Recipient must make sure Subject Software, or portions thereof,
+ included in the Larger Work is subject to this Agreement.
+
+ J. Notwithstanding any provisions contained herein, Recipient is
+ hereby put on notice that export of any goods or technical data from
+ the United States may require some form of export license from the
+ U.S. Government.  Failure to obtain necessary export licenses may
+ result in criminal liability under U.S. laws.  Government Agency
+ neither represents that a license shall not be required nor that, if
+ required, it shall be issued.  Nothing granted herein provides any
+ such export license.
+
+ 4. DISCLAIMER OF WARRANTIES AND LIABILITIES; WAIVER AND INDEMNIFICATION
+
+ A. No Warranty: THE SUBJECT SOFTWARE IS PROVIDED "AS IS" WITHOUT ANY
+ WARRANTY OF ANY KIND, EITHER EXPRESSED, IMPLIED, OR STATUTORY,
+ INCLUDING, BUT NOT LIMITED TO, ANY WARRANTY THAT THE SUBJECT SOFTWARE
+ WILL CONFORM TO SPECIFICATIONS, ANY IMPLIED WARRANTIES OF
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR FREEDOM FROM
+ INFRINGEMENT, ANY WARRANTY THAT THE SUBJECT SOFTWARE WILL BE ERROR
+ FREE, OR ANY WARRANTY THAT DOCUMENTATION, IF PROVIDED, WILL CONFORM TO
+ THE SUBJECT SOFTWARE. THIS AGREEMENT DOES NOT, IN ANY MANNER,
+ CONSTITUTE AN ENDORSEMENT BY GOVERNMENT AGENCY OR ANY PRIOR RECIPIENT
+ OF ANY RESULTS, RESULTING DESIGNS, HARDWARE, SOFTWARE PRODUCTS OR ANY
+ OTHER APPLICATIONS RESULTING FROM USE OF THE SUBJECT SOFTWARE.
+ FURTHER, GOVERNMENT AGENCY DISCLAIMS ALL WARRANTIES AND LIABILITIES
+ REGARDING THIRD-PARTY SOFTWARE, IF PRESENT IN THE ORIGINAL SOFTWARE,
+ AND DISTRIBUTES IT "AS IS."
+
+ B. Waiver and Indemnity: RECIPIENT AGREES TO WAIVE ANY AND ALL CLAIMS
+ AGAINST THE UNITED STATES GOVERNMENT, ITS CONTRACTORS AND
+ SUBCONTRACTORS, AS WELL AS ANY PRIOR RECIPIENT.  IF RECIPIENT'S USE OF
+ THE SUBJECT SOFTWARE RESULTS IN ANY LIABILITIES, DEMANDS, DAMAGES,
+ EXPENSES OR LOSSES ARISING FROM SUCH USE, INCLUDING ANY DAMAGES FROM
+ PRODUCTS BASED ON, OR RESULTING FROM, RECIPIENT'S USE OF THE SUBJECT
+ SOFTWARE, RECIPIENT SHALL INDEMNIFY AND HOLD HARMLESS THE UNITED
+ STATES GOVERNMENT, ITS CONTRACTORS AND SUBCONTRACTORS, AS WELL AS ANY
+ PRIOR RECIPIENT, TO THE EXTENT PERMITTED BY LAW.  RECIPIENT'S SOLE
+ REMEDY FOR ANY SUCH MATTER SHALL BE THE IMMEDIATE, UNILATERAL
+ TERMINATION OF THIS AGREEMENT.
+
+ 5. GENERAL TERMS
+
+ A. Termination: This Agreement and the rights granted hereunder will
+ terminate automatically if a Recipient fails to comply with these
+ terms and conditions, and fails to cure such noncompliance within
+ thirty (30) days of becoming aware of such noncompliance.  Upon
+ termination, a Recipient agrees to immediately cease use and
+ distribution of the Subject Software.  All sublicenses to the Subject
+ Software properly granted by the breaching Recipient shall survive any
+ such termination of this Agreement.
+
+ B. Severability: If any provision of this Agreement is invalid or
+ unenforceable under applicable law, it shall not affect the validity
+ or enforceability of the remainder of the terms of this Agreement.
+
+ C. Applicable Law: This Agreement shall be subject to United States
+ federal law only for all purposes, including, but not limited to,
+ determining the validity of this Agreement, the meaning of its
+ provisions and the rights, obligations and remedies of the parties.
+
+ D. Entire Understanding: This Agreement constitutes the entire
+ understanding and agreement of the parties relating to release of the
+ Subject Software and may not be superseded, modified or amended except
+ by further written agreement duly executed by the parties.
+
+ E. Binding Authority: By accepting and using the Subject Software
+ under this Agreement, a Recipient affirms its authority to bind the
+ Recipient to all terms and conditions of this Agreement and that that
+ Recipient hereby agrees to all terms and conditions herein.
+
+ F. Point of Contact: Any Recipient contact with Government Agency is
+ to be directed to the designated representative as follows:
+ Bil.Kleb@NASA.gov

data/Manifest.txt

@@ -0,0 +1,7 @@
+History.txt
+License.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/fortran.rb
+test/test_fortran.rb

data/README.txt

@@ -0,0 +1,26 @@
+fortran
+
+* http://rubyforge.org/projects/nasarb
+* http://nasarb.rubyforge.org
+* mailto:Bil.Kleb@NASA.gov
+
+== DESCRIPTION:
+
+* Provides Fortran 90/95/2003 makefile dependencies.
+
+== SYNOPSIS:
+
+* <tt>fortran</tt>
+
+== REQUIREMENTS:
+
+* Ruby with Rubygems
+
+== INSTALL:
+
+* <tt>sudo gem install fortran</tt>
+
+== LICENSE 
+
+Released under the NASA Open Source Agreement -- see License.txt[link:files/License_txt.html] for details.
+

data/Rakefile

@@ -0,0 +1,17 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+
+$:.unshift File.join( File.dirname(__FILE__), 'lib' )
+require 'fortran'
+
+Hoe.new('fortran', Fortran::VERSION) do |p|
+  p.rubyforge_name = 'nasarb'
+  p.author = ['Bil Kleb','Mike Park','Bill Wood']
+  p.email = 'Bil.Kleb@NASA.gov'
+  p.summary = 'Fortran 90/95/2003 utilities.'
+  p.description = p.paragraphs_of('README.txt', 3..4).join("\n\n")
+  p.url = p.paragraphs_of('README.txt', 1).first.gsub(/^\* /, '').split(/\n/)
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+end

data/lib/fortran.rb

@@ -0,0 +1,134 @@
+module Fortran
+  
+  VERSION = '1.0.0'
+
+  ##
+  # Find Fortran file dependencies
+
+  class Dependencies
+ 
+    OPTIONS = { :search_paths => [ '.', '../lib' ],
+                :ignore_files => %r{ },
+                :ignore_modules => %r{ },
+                :ignore_symlinks => true }
+    
+    USE_MODULE_REGEX = /^\s*use\s+(\w+)/i
+    MODULE_DEF_REGEX = /^\s*module\s+(\w+)/i
+ 
+    FILE_EXTENSION = /\.f90$/i
+  
+    attr_reader :file_dependencies, :source_files
+
+    def initialize( config=OPTIONS )
+      @config = config
+      OPTIONS.each{ |opt,default| @config[opt] = default unless @config.has_key? opt }
+      @parsed, @file_dependencies, @source_files = [], {}, []
+      @hash = build_hash_of_modules_in_files
+      self
+    end
+
+    def modules_used_in( file )
+      modules = IO.readlines( file ).map do |line|
+        $1.downcase if line.match USE_MODULE_REGEX
+      end.uniq.compact
+    end
+
+    def modules_defined_in( file )
+      modules = IO.readlines( file ).map do |line| 
+        $1.downcase if line.match MODULE_DEF_REGEX
+      end.uniq.compact
+    end
+
+    def build_dictionary_of_modules( files )
+      file_containing_module = {}
+      files.each do |file|
+        modules_defined_in( file ).each{ |mod| file_containing_module[mod]=file }
+      end
+      file_containing_module
+    end
+
+    def find_fortran_files
+      source = @config[:search_paths].map{ |path| Dir[path+"/*.[fF]90"] }
+      source.flatten!.uniq!
+      source.delete_if{ |file| File.lstat(file).symlink? } if @config[:ignore_symlinks]
+      source.delete_if{ |file| file.match @config[:ignore_files] }
+    end
+
+    def build_hash_of_modules_in_files
+      build_dictionary_of_modules find_fortran_files
+    end
+
+    def makefile_dependency_line( source )
+      real_source = source.sub(/PHYSICS_DUMMY/,'PHYSICS_MODULES')# FIXME: What's this?!
+      source_no_path = File.basename source
+      @source_files.push source_no_path.gsub(%r|^.*/|,'')
+      output = ''
+      if (File.expand_path(source) != File.expand_path(source_no_path))
+        output += source_no_path+ ": " + real_source + "\n"
+        output += "\tln -sf "+real_source+" .\n"
+      end
+      output += source.gsub(FILE_EXTENSION, ".o").gsub(%r|^.*/|,'' ) +
+                ": " + source.gsub(%r|^.*/|,"" ) 
+      modules_used_in( source ).each do |use|
+        unless @hash[use]
+          unless use.match @config[:ignore_modules]
+            $stderr.puts 'Warning: unable to locate module #{use} used in #{source}.'
+            $stderr.puts '         set :search_paths or :ignore_module_regex options.'
+          end
+          next
+        end
+        output = output + " \\\n " +
+                 @hash[use].gsub(FILE_EXTENSION, ".o").gsub(%r|^.*/|,'' )
+      end
+      output+"\n"
+    end
+
+    def dependencies( start )
+      modules = modules_used_in( start )
+      @parsed = @parsed || [start]
+      new_source_files = modules.collect{ |mod| @hash[mod] }.compact
+      makefile_dependency_line(start) +
+      new_source_files.collect do |file|
+        next if @parsed.include?(file)
+        @parsed.push file
+        dependencies file
+      end.to_s
+    end
+
+    def source_file_dependencies( head_f90 )
+      modules_head_uses = modules_used_in( head_f90 )
+      required_f90s = modules_head_uses.map{ |mod| @hash[mod] }.compact
+      @file_dependencies[head_f90] = required_f90s
+      required_f90s.each do |required_f90|
+        next if @parsed.include?(required_f90)
+        source_file_dependencies( required_f90 )
+      end
+      @parsed.push head_f90
+    end
+
+    def required_source_files( head_f90 )
+      @parsed.clear
+      source_file_dependencies( head_f90 )
+      sources = []
+      until @file_dependencies.empty? do
+        no_dependents_pair = @file_dependencies.detect{ |h,d| d == [] }
+        no_dependents = no_dependents_pair.first
+        sources.push no_dependents
+        @file_dependencies.delete(no_dependents){ |el| "#{el} not found" }
+        @file_dependencies.each_value{ |deps| deps.delete(no_dependents) }
+      end
+      sources
+    end
+
+  end
+end
+
+#--
+# Copyright 2007 United States Government as represented by
+# NASA Langley Research Center. No copyright is claimed in
+# the United States under Title 17, U.S. Code. All Other Rights
+# Reserved.
+#
+# This file is governed by the NASA Open Source Agreement.
+# See License.txt for details.
+#++

data/test/test_fortran.rb

@@ -0,0 +1,173 @@
+require 'test/unit'
+require 'fortran'
+require 'fileutils'
+
+class TestFortran < Test::Unit::TestCase
+
+  def setup
+    Dir.mkdir 'DependenciesFixture'
+    Dir.chdir 'DependenciesFixture' # FIXME: use block form for readability
+    Dir.mkdir 'lib'
+    Dir.chdir 'lib'
+    File.open('solution.f90','w') do |f|
+      f.puts "module solution\nuse area\nend module solution"
+    end
+    Dir.chdir '..'
+    Dir.mkdir 'src'
+    Dir.chdir 'src'
+    File.open('main.F90','w') do |f|
+      f.puts 'program whizzard'
+      f.puts " use grid\n use solution\n use circle"
+      f.puts 'end program whizzard'
+    end
+    File.open('grid.f90','w') do |f|
+      f.puts "module grid\nuse area\nend module grid"
+    end
+    File.open('shapes.f90','w') do |f|
+      f.puts "module rectangle_fun3d\nend module rectangle_fun3d"
+      f.puts "module circle\n use area\nend module circle"
+    end
+    File.open('area.f90','w'){ |f| f.puts "module area\nend module area" }
+    File.open('externalUse.f90','w') do |f|
+      f.puts "program user\nuse cantFindModule\nend program"
+    end
+    @dep = Fortran::Dependencies.new
+  end
+
+  def teardown
+    Dir.chdir '../..'
+    FileUtils.rm_rf 'DependenciesFixture'
+  end
+
+  def test_finds_which_modules_a_source_file_uses
+    assert_equal %w[grid solution circle], @dep.modules_used_in( 'main.F90' )
+  end
+
+  def test_finds_modules_defined_in_source_file
+    assert_equal %w[rectangle_fun3d circle],
+                 @dep.modules_defined_in( 'shapes.f90' )
+  end
+
+  def test_create_module_definition_hash
+    assert_equal %w[circle rectangle_fun3d],
+    @dep.build_dictionary_of_modules( 'shapes.f90' ).keys.sort
+  end
+
+  def test_locating_all_fortran_files_in_search_path
+    files = %w[ ../lib/solution.f90 ./area.f90 ./externalUse.f90
+                ./grid.f90 ./main.F90 ./shapes.f90 ]
+    @dep.find_fortran_files.each do |file|
+      assert files.include?(file)
+    end
+  end
+
+  def test_build_hash_with_source_files
+    f90 = %w[./grid.f90 ../lib/solution.f90 ./shapes.f90 ./area.f90]
+    hash = @dep.build_dictionary_of_modules( f90 )
+    assert_equal %w[ ./shapes.f90 ./shapes.f90 ./area.f90
+                     ../lib/solution.f90 ./grid.f90 ].sort,
+                 hash.values.sort
+    assert_equal %w[ rectangle_fun3d circle area solution grid ].sort,
+                 hash.keys.sort
+    assert_equal hash , @dep.build_hash_of_modules_in_files
+  end
+
+  def test_dependency_generation_elements
+    directoryHash = @dep.build_hash_of_modules_in_files
+
+    source_file = "main.F90"
+    modules = @dep.modules_used_in( source_file )
+    assert_equal %w[grid solution circle], modules
+    
+    new_source_files = modules.collect{ |mod| directoryHash[mod] }
+    assert_equal %w[ ./grid.f90 ../lib/solution.f90 ./shapes.f90],
+                 new_source_files
+    
+    new_modules = new_source_files.collect do |file|
+      @dep.modules_used_in( file )
+    end.flatten.uniq
+
+    assert_equal ["area"], new_modules
+  end
+
+  def test_makefile_dependency_line_generation
+    source_file = "main.F90"
+    make_golden=String.new <<-GOLDEN
+main.o: main.F90 \\
+ grid.o \\
+ solution.o \\
+ shapes.o
+    GOLDEN
+    assert_equal make_golden, @dep.makefile_dependency_line(source_file)
+  end
+
+  def test_makefile_dependency_recurses_properly
+    make_golden=String.new <<-GOLDEN
+main.o: main.F90 \\
+ grid.o \\
+ solution.o \\
+ shapes.o
+grid.o: grid.f90 \\
+ area.o
+area.o: area.f90
+solution.f90: ../lib/solution.f90
+\tln -sf ../lib/solution.f90 .
+solution.o: solution.f90 \\
+ area.o
+shapes.o: shapes.f90 \\
+ area.o
+    GOLDEN
+
+    gold_split = make_golden.split("\n")
+    test_split = @dep.dependencies('main.F90').split("\n")
+
+    while (gold = gold_split.shift) && (test = test_split.shift)
+      assert_equal gold, test
+    end
+  end
+
+  def test_source_file_dependency_hash
+    @dep.source_file_dependencies('main.F90')
+    assert_equal( 5, @dep.file_dependencies.size )
+    expected = {
+      "./area.f90" => [],
+      "./grid.f90" => ["./area.f90"],
+      "../lib/solution.f90" => ["./area.f90"],
+      "./shapes.f90" => ["./area.f90"],
+      "main.F90" => ["./grid.f90", "../lib/solution.f90", "./shapes.f90"]
+    }
+    assert_equal expected, @dep.file_dependencies
+  end
+
+  def test_finds_required_source_files
+    expected = %w[ ./area.f90 ./shapes.f90 ../lib/solution.f90
+                   ./grid.f90 ./main.F90 ]
+    found = @dep.required_source_files('./main.F90')
+    assert_equal expected.size, found.size
+    assert_equal './main.F90', found.last
+    assert_equal './area.f90', found.first
+  end
+
+  def test_finds_required_source_files_unordered
+    @dep.dependencies('main.F90')
+    sources = @dep.source_files
+    expected = %w[ main.F90 grid.f90 area.f90 solution.f90 shapes.f90 ]
+    assert_equal expected.size, sources.size
+    assert_equal 'shapes.f90', sources.last
+    assert_equal 'main.F90', sources.first
+    assert_equal expected, sources
+  end
+
+  def test_can_find_required_source_files_twice
+    files = %w[ ./main.F90 ./shapes.f90 ./area.f90
+                ../lib/solution.f90 ./grid.f90 ]
+    @dep.required_source_files('./main.F90')
+    assert_equal files.sort, @dep.required_source_files('./main.F90').sort
+  end
+
+  def test_recognizes_external_modules
+    file = './externalUse.f90'
+    assert_equal [file], @dep.required_source_files(file).sort
+  end
+
+end

metadata

@@ -0,0 +1,66 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.4
+specification_version: 1
+name: fortran
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+date: 2007-08-01 00:00:00 -04:00
+summary: Fortran 90/95/2003 utilities.
+require_paths: 
+- lib
+email: Bil.Kleb@NASA.gov
+homepage: http://rubyforge.org/projects/nasarb
+rubyforge_project: nasarb
+description: "* Provides Fortran 90/95/2003 makefile dependencies.  == SYNOPSIS:"
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Bil Kleb
+- Mike Park
+- Bill Wood
+files: 
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/fortran.rb
+- test/test_fortran.rb
+test_files: 
+- test/test_fortran.rb
+rdoc_options: 
+- --main
+- README.txt
+extra_rdoc_files: 
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.2.2
+    version: