mirror of
				https://github.com/KevinMidboe/linguist.git
				synced 2025-10-29 17:50:22 +00:00 
			
		
		
		
	Add FORTRAN keyword "data" to .f and .for heuristics. (#3218)
bug-185631.f sample from OpenFortranProject; BSD license.
This commit is contained in:
		@@ -144,7 +144,7 @@ module Linguist
 | 
				
			|||||||
      end
 | 
					      end
 | 
				
			||||||
    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|
 | 
					    disambiguate ".f" do |data|
 | 
				
			||||||
      if /^: /.match(data)
 | 
					      if /^: /.match(data)
 | 
				
			||||||
 
 | 
				
			|||||||
							
								
								
									
										6
									
								
								samples/FORTRAN/bug-185631.f
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										6
									
								
								samples/FORTRAN/bug-185631.f
									
									
									
									
									
										Normal file
									
								
							@@ -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
 | 
				
			||||||
		Reference in New Issue
	
	Block a user