From 00efd6a463d198ae5b3c0482fb66e9f7cb71e7cd Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 15 Sep 2016 19:24:53 +0200 Subject: [PATCH] Add FORTRAN keyword "data" to .f and .for heuristics. (#3218) bug-185631.f sample from OpenFortranProject; BSD license. --- lib/linguist/heuristics.rb | 2 +- samples/FORTRAN/bug-185631.f | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 samples/FORTRAN/bug-185631.f diff --git a/lib/linguist/heuristics.rb b/lib/linguist/heuristics.rb index ea3823e9..1d5196f4 100644 --- a/lib/linguist/heuristics.rb +++ b/lib/linguist/heuristics.rb @@ -144,7 +144,7 @@ module Linguist end end - fortran_rx = /^([c*][^abd-z]| (subroutine|program|end)\s|\s*!)/i + fortran_rx = /^([c*][^abd-z]| (subroutine|program|end|data)\s|\s*!)/i disambiguate ".f" do |data| if /^: /.match(data) diff --git a/samples/FORTRAN/bug-185631.f b/samples/FORTRAN/bug-185631.f new file mode 100644 index 00000000..abdf87b0 --- /dev/null +++ b/samples/FORTRAN/bug-185631.f @@ -0,0 +1,6 @@ +! Codes/HYCOM/hycom/ATLb2.00/src_2.0.01_22_one/ + real onemu, twomu + data onemu/0.0098/ + data twomu/1./ + data threemu/0.e9/ + end