| LC_KEYWORDS |
= |
%w{ assign backspace call close common continue data dimension do else end endfile endif enddo entry equivalence external format function goto if implicit inquire intrinsic open parameter pause print program read return rewind save stop subroutine then write } + [ "block data", "go to" ] + # Fortran 90 keywords %w{ allocate allocatable case contains cycle deallocate elsewhere exit include interface intent module namelist nullify only operator optional pointer private procedure public result recursive select sequence target type use while where } + # Fortran 95 keywords %w{ elemental forall pure } + # Fortran 2003 keywords %w{ abstract associate asynchronous bind class deferred enum enumerator extends final flush generic import non_overridable nopass pass protected value volatile wait } + # Fortran 2008 keywords %w{ block codimension concurrent contiguous critical submodule lock unlock } + [ "error stop", "sync all", "sync images", "sync memory" ] |
|
Fortran keywords
|
| LC_TYPES |
= |
[ "character", "complex", "logical", "integer", "real", "double precision" ] |
|
List of identifiers recognized as types
|
| LC_INTRINSICS |
= |
%w{ abs achar acos acosh adjustl adjustr aimag aint all allocated anint any asin asinh associated atan atan2 atanh atomic_define atomic_ref bessel_j0 bessel_j1 bessel_jn bessel_y0 bessel_y1 bessel_yn bit_size btest bge bgt ble blt c_associated c_f_pointer c_f_procpointer c_funloc c_loc c_sizeof ceiling char cmplx command_argument_count compiler_version compiler_options conjg cos cosh count cpu_time cshift date_and_time dble digits dim dot_product dprod dshiftl dshiftr eoshift epsilon erf erfc erfc_scaled exp exponent execute_command_line extends_type_of findloc float floor fraction gamma get_command get_command_argument get_environment_variable huge hypot iachar iall iand iany ibclr ibits ibset ichar image_index int ior iparity is_contiguous is_iostat_end is_iostat_eor ishft ishftc kind lbound lcobound leadz len len_trim lge lgt lle llt log log10 log_gamma logical maskl maskr matmul max maxexponent maxloc maxval merge merge_bits min minexponent minloc minval mod modulo move_alloc mvbits nearest new_line nint norm2 not null num_images pack parity popcnt poppar precision present product radix random_number random_seed range real repeat reshape rrspacing same_type_as scale scan selected_char_kind selected_int_kind selected_real_kind set_exponent shape shiftl shiftr sign sin sinh size sngl spacing spread sqrt storage_size sum system_clock tan tanh this_image tiny trailz transfer transpose trim ubound ucobound unpack verify } |
|
Fortran intrinsic procedures
|
| KEYWORDS |
= |
Set.new LC_KEYWORDS + LC_KEYWORDS.map { |x| x.upcase } |
|
Also support all uppercase keywords, types, and procedures
|
| TYPES |
= |
Set.new LC_TYPES + LC_TYPES.map { |x| x.upcase } |
| INTRINSICS |
= |
Set.new LC_INTRINSICS + LC_INTRINSICS.map { |x| x.upcase } |