[gtksourceview] fortran.lang: bring into accordance with F2003 and F2008

[SĂŠbastien Wilmet <swilmet src gnome org>]

commit ae0a821a4a1a715f7244ce7fcbd4d5fb25baaaa7
Author: Adam Hirst <adam aphirst karoo co uk>
Date:   Fri Feb 2 16:25:29 2018 +0000

    fortran.lang: bring into accordance with F2003 and F2008
    
    https://bugzilla.gnome.org/show_bug.cgi?id=793123

 data/language-specs/fortran.lang |  126 +++++++++++++++++++++++++++++++++++++-
 1 files changed, 123 insertions(+), 3 deletions(-)
---
diff --git a/data/language-specs/fortran.lang b/data/language-specs/fortran.lang
index 0b540c6..9aecbf4 100644
--- a/data/language-specs/fortran.lang
+++ b/data/language-specs/fortran.lang
@@ -143,41 +143,63 @@
     </context>
 
     <context id="keywords" style-ref="keyword">
-      <keyword>abstract interface</keyword>
+      <keyword>abstract</keyword>
       <keyword>allocate</keyword>
       <keyword>assign</keyword>
       <keyword>assignment</keyword>
-      <keyword>block data</keyword>
+      <keyword>associate</keyword>
+      <keyword>bind</keyword>
+      <keyword>block</keyword>
       <keyword>call</keyword>
       <keyword>case</keyword>
       <keyword>class</keyword>
       <keyword>common</keyword>
       <keyword>contains</keyword>
       <keyword>continue</keyword>
+      <keyword>critical</keyword>
       <keyword>cycle</keyword>
       <keyword>data</keyword>
       <keyword>deallocate</keyword>
       <keyword>default</keyword>
-      <keyword>do</keyword>
       <keyword>do concurrent</keyword>
+      <keyword>do</keyword>
       <keyword>elemental</keyword>
       <keyword>elseif</keyword>
       <keyword>else</keyword>
       <keyword>elsewhere</keyword>
+      <keyword>endassociate</keyword>
+      <keyword>endblock</keyword>
+      <keyword>endcritical</keyword>
       <keyword>enddo</keyword>
+      <keyword>endenum</keyword>
+      <keyword>endfunction</keyword>
       <keyword>endif</keyword>
+      <keyword>endinterface</keyword>
+      <keyword>endmodule</keyword>
+      <keyword>endprocedure</keyword>
+      <keyword>endprogram</keyword>
       <keyword>endselect</keyword>
+      <keyword>endsubmodule</keyword>
+      <keyword>endsubroutine</keyword>
       <keyword>end</keyword>
+      <keyword>enum</keyword>
       <keyword>entry</keyword>
       <keyword>equivalence</keyword>
+      <keyword>error stop</keyword>
       <keyword>exit</keyword>
+      <keyword>extends</keyword>
       <keyword>external</keyword>
+      <keyword>final</keyword>
       <keyword>forall</keyword>
       <keyword>function</keyword>
+      <keyword>generic</keyword>
       <keyword>go to</keyword>
       <keyword>goto</keyword>
       <keyword>if</keyword>
       <keyword>implicit none</keyword>
+      <keyword>implicit</keyword>
+      <keyword>import</keyword>
+      <keyword>impure</keyword>
       <keyword>in</keyword>
       <keyword>[^#]include</keyword>
       <keyword>inout</keyword>
@@ -185,6 +207,7 @@
       <keyword>intrinsic</keyword>
       <keyword>kind</keyword>
       <keyword>len</keyword>
+      <keyword>lock</keyword>
       <keyword>module</keyword>
       <keyword>namelist</keyword>
       <keyword>nullify</keyword>
@@ -202,9 +225,14 @@
       <keyword>save</keyword>
       <keyword>select</keyword>
       <keyword>stop</keyword>
+      <keyword>submodule</keyword>
       <keyword>subroutine</keyword>
+      <keyword>sync all</keyword>
+      <keyword>sync images</keyword>
+      <keyword>sync memory</keyword>
       <keyword>then</keyword>
       <keyword>type</keyword>
+      <keyword>unlock</keyword>
       <keyword>use</keyword>
       <keyword>where</keyword>
       <keyword>while</keyword>
@@ -220,6 +248,7 @@
       <keyword>print</keyword>
       <keyword>read</keyword>
       <keyword>rewind</keyword>
+      <keyword>wait</keyword>
       <keyword>write</keyword>
     </context>
 
@@ -242,6 +271,7 @@
       <keyword>iostat</keyword>
       <keyword>name</keyword>
       <keyword>named</keyword>
+      <keyword>newunit</keyword>
       <keyword>nextrec</keyword>
       <keyword>nml</keyword>
       <keyword>number</keyword>
@@ -261,6 +291,7 @@
     <context id="intrinsics" style-ref="intrinsic">
       <keyword>abs</keyword>
       <keyword>achar</keyword>
+      <keyword>acosh</keyword>
       <keyword>acos</keyword>
       <keyword>adjustl</keyword>
       <keyword>adjustr</keyword>
@@ -278,10 +309,24 @@
       <keyword>amod</keyword>
       <keyword>anint</keyword>
       <keyword>any</keyword>
+      <keyword>asinh</keyword>
       <keyword>asin</keyword>
       <keyword>associated</keyword>
       <keyword>atan2</keyword>
+      <keyword>atanh</keyword>
       <keyword>atan</keyword>
+      <keyword>atomic_define</keyword>
+      <keyword>atomic_ref</keyword>
+      <keyword>bessel_j0</keyword>
+      <keyword>bessel_j1</keyword>
+      <keyword>bessel_jn</keyword>
+      <keyword>bessel_y0</keyword>
+      <keyword>bessel_y1</keyword>
+      <keyword>bessel_yn</keyword>
+      <keyword>bge</keyword>
+      <keyword>bgt</keyword>
+      <keyword>ble</keyword>
+      <keyword>blt</keyword>
       <keyword>bit_size</keyword>
       <keyword>btest</keyword>
       <keyword>c_associated</keyword>
@@ -303,6 +348,8 @@
       <keyword>clog</keyword>
       <keyword>cmplx</keyword>
       <keyword>command_argument_count</keyword>
+      <keyword>compiler_options</keyword>
+      <keyword>compiler_version</keyword>
       <keyword>conjg</keyword>
       <keyword>cosh</keyword>
       <keyword>cos</keyword>
@@ -347,6 +394,8 @@
       <keyword>dnint</keyword>
       <keyword>dot_product</keyword>
       <keyword>dprod</keyword>
+      <keyword>dshiftl</keyword>
+      <keyword>dshiftr</keyword>
       <keyword>dsign</keyword>
       <keyword>dsinh</keyword>
       <keyword>dsin</keyword>
@@ -355,12 +404,16 @@
       <keyword>dtan</keyword>
       <keyword>eoshift</keyword>
       <keyword>epsilon</keyword>
+      <keyword>erfc_scaled</keyword>
       <keyword>erfc</keyword>
       <keyword>erf</keyword>
+      <keyword>execute_command_line</keyword>
       <keyword>exp</keyword>
       <keyword>exponent</keyword>
+      <keyword>findloc</keyword>
       <keyword>float</keyword>
       <keyword>floor</keyword>
+      <keyword>flush</keyword>
       <keyword>fraction</keyword>
       <keyword>gamma</keyword>
       <keyword>getarg</keyword>
@@ -368,9 +421,12 @@
       <keyword>get_command_argument</keyword>
       <keyword>get_environment_variable</keyword>
       <keyword>huge</keyword>
+      <keyword>hypot</keyword>
       <keyword>iabs</keyword>
       <keyword>iachar</keyword>
+      <keyword>iall</keyword>
       <keyword>iand</keyword>
+      <keyword>iany</keyword>
       <keyword>iargc</keyword>
       <keyword>ibclr</keyword>
       <keyword>ibits</keyword>
@@ -379,12 +435,47 @@
       <keyword>idim</keyword>
       <keyword>idint</keyword>
       <keyword>idnint</keyword>
+      <keyword>ieee_class</keyword>
+      <keyword>ieee_copy_sign</keyword>
+      <keyword>ieee_get_flag</keyword>
+      <keyword>ieee_get_halting_mode</keyword>
+      <keyword>ieee_get_rounding_mode</keyword>
+      <keyword>ieee_get_status</keyword>
+      <keyword>ieee_is_finite</keyword>
+      <keyword>ieee_is_nan</keyword>
+      <keyword>ieee_is_negative</keyword>
+      <keyword>ieee_is_normal</keyword>
+      <keyword>ieee_logb</keyword>
+      <keyword>ieee_next_after</keyword>
+      <keyword>ieee_rem</keyword>
+      <keyword>ieee_rint</keyword>
+      <keyword>ieee_scalb</keyword>
+      <keyword>ieee_selected_real_kind</keyword>
+      <keyword>ieee_set_flag</keyword>
+      <keyword>ieee_set_halting_mode</keyword>
+      <keyword>ieee_set_rounding_mode</keyword>
+      <keyword>ieee_set_status</keyword>
+      <keyword>ieee_support_datatype</keyword>
+      <keyword>ieee_support_denormal</keyword>
+      <keyword>ieee_support_divide</keyword>
+      <keyword>ieee_support_flag</keyword>
+      <keyword>ieee_support_halting</keyword>
+      <keyword>ieee_support_inf</keyword>
+      <keyword>ieee_support_nan</keyword>
+      <keyword>ieee_support_rounding</keyword>
+      <keyword>ieee_support_sqrt</keyword>
+      <keyword>ieee_support_standard</keyword>
+      <keyword>ieee_unordered</keyword>
+      <keyword>ieee_value</keyword>
       <keyword>ieor</keyword>
       <keyword>ifix</keyword>
+      <keyword>image_index</keyword>
       <keyword>index</keyword>
       <keyword>int</keyword>
       <keyword>ior</keyword>
+      <keyword>iparity</keyword>
       <keyword>iqint</keyword>
+      <keyword>is_contiguous</keyword>
       <keyword>is_iostat_end</keyword>
       <keyword>is_iostat_eor</keyword>
       <keyword>ishftc</keyword>
@@ -392,6 +483,8 @@
       <keyword>isign</keyword>
       <keyword>kind</keyword>
       <keyword>lbound</keyword>
+      <keyword>lcobound</keyword>
+      <keyword>leadz</keyword>
       <keyword>len_trim</keyword>
       <keyword>len</keyword>
       <keyword>lge</keyword>
@@ -399,9 +492,12 @@
       <keyword>lle</keyword>
       <keyword>llt</keyword>
       <keyword>loc</keyword>
+      <keyword>log_gamma</keyword>
       <keyword>log10</keyword>
       <keyword>log</keyword>
       <keyword>logical</keyword>
+      <keyword>maskl</keyword>
+      <keyword>maskr</keyword>
       <keyword>matmul</keyword>
       <keyword>max0</keyword>
       <keyword>max1</keyword>
@@ -409,6 +505,7 @@
       <keyword>maxloc</keyword>
       <keyword>maxval</keyword>
       <keyword>max</keyword>
+      <keyword>merge_bits</keyword>
       <keyword>merge</keyword>
       <keyword>min0</keyword>
       <keyword>min1</keyword>
@@ -426,8 +523,12 @@
       <keyword>norm2</keyword>
       <keyword>not</keyword>
       <keyword>null</keyword>
+      <keyword>num_images</keyword>
       <keyword>or</keyword>
       <keyword>pack</keyword>
+      <keyword>parity</keyword>
+      <keyword>popcnt</keyword>
+      <keyword>poppar</keyword>
       <keyword>precision</keyword>
       <keyword>present</keyword>
       <keyword>product</keyword>
@@ -474,6 +575,9 @@
       <keyword>selected_real_kind</keyword>
       <keyword>set_exponent</keyword>
       <keyword>shape</keyword>
+      <keyword>shifta</keyword>
+      <keyword>shiftl</keyword>
+      <keyword>shiftr</keyword>
       <keyword>sign</keyword>
       <keyword>sinh</keyword>
       <keyword>sin</keyword>
@@ -482,15 +586,19 @@
       <keyword>spacing</keyword>
       <keyword>spread</keyword>
       <keyword>sqrt</keyword>
+      <keyword>storage_size</keyword>
       <keyword>sum</keyword>
       <keyword>system_clock</keyword>
       <keyword>tanh</keyword>
       <keyword>tan</keyword>
+      <keyword>this_image</keyword>
       <keyword>tiny</keyword>
+      <keyword>trailz</keyword>
       <keyword>transfer</keyword>
       <keyword>transpose</keyword>
       <keyword>trim</keyword>
       <keyword>ubound</keyword>
+      <keyword>ucobound</keyword>
       <keyword>unpack</keyword>
       <keyword>verify</keyword>
       <keyword>zabs</keyword>
@@ -507,6 +615,7 @@
       <keyword>complex</keyword>
       <keyword>double complex</keyword>
       <keyword>double precision</keyword>
+      <keyword>enumerator</keyword>
       <keyword>integer</keyword>
       <keyword>logical</keyword>
       <keyword>procedure</keyword>
@@ -515,17 +624,28 @@
 
     <context id="type-attributes" style-ref="type">
       <keyword>allocatable</keyword>
+      <keyword>asynchronous</keyword>
+      <keyword>codimension</keyword>
+      <keyword>contiguous</keyword>
+      <keyword>deferred</keyword>
       <keyword>dimension</keyword>
       <keyword>external</keyword>
       <keyword>intent</keyword>
       <keyword>intrinsic</keyword>
+      <keyword>non_overridable</keyword>
+      <keyword>nopass</keyword>
       <keyword>optional</keyword>
       <keyword>parameter</keyword>
+      <keyword>pass</keyword>
       <keyword>pointer</keyword>
       <keyword>private</keyword>
+      <keyword>protected</keyword>
       <keyword>public</keyword>
       <keyword>save</keyword>
+      <keyword>synchronous</keyword>
       <keyword>target</keyword>
+      <keyword>value</keyword>
+      <keyword>volatile</keyword>
     </context>
 
     <context id="attributes">