| peter klausler | 6ae0a5a | 2018-01-29 22:55:57 | [diff] [blame^] | 1 | R0001 digit -> 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 2 | R0002 letter -> |
| 3 | A | B | C | D | E | F | G | H | I | J | K | L | M | |
| 4 | N | O | P | Q | R | S | T | U | V | W | X | Y | Z |
| 5 | R0003 rep-char |
| 6 | |
| 7 | R401 xzy-list -> xzy [, xzy]... |
| 8 | R402 xzy-name -> name |
| 9 | R403 scalar-xyz -> xyz |
| 10 | |
| 11 | R501 program -> program-unit [program-unit]... |
| 12 | R502 program-unit -> |
| 13 | main-program | external-subprogram | module | submodule | block-data |
| 14 | R503 external-subprogram -> function-subprogram | subroutine-subprogram |
| 15 | R504 specification-part -> |
| 16 | [use-stmt]... [import-stmt]... [implicit-part] |
| 17 | [declaration-construct]... |
| 18 | R505 implicit-part -> [implicit-part-stmt]... implicit-stmt |
| 19 | R506 implicit-part-stmt -> |
| 20 | implicit-stmt | parameter-stmt | format-stmt | entry-stmt |
| 21 | R507 declaration-construct -> |
| 22 | specification-construct | data-stmt | format-stmt | entry-stmt | |
| 23 | stmt-function-stmt |
| 24 | R508 specification-construct -> |
| 25 | derived-type-def | enum-def | generic-stmt | interface-block | |
| 26 | parameter-stmt | procedure-declaration-stmt | |
| 27 | other-specification-stmt | type-declaration-stmt |
| 28 | R509 execution-part -> executable-construct [execution-part-construct]... |
| 29 | R510 execution-part-construct -> |
| 30 | executable-construct | format-stmt | entry-stmt | data-stmt |
| 31 | R511 internal-subprogram-part -> contains-stmt [internal-subprogram]... |
| 32 | R512 internal-subprogram -> function-subprogram | subroutine-subprogram |
| 33 | R513 other-specification-stmt -> |
| 34 | access-stmt | allocatable-stmt | asynchronous-stmt | bind-stmt | |
| 35 | codimension-stmt | contiguous-stmt | dimension-stmt | external-stmt | |
| 36 | intent-stmt | intrinsic-stmt | namelist-stmt | optional-stmt | |
| 37 | pointer-stmt | protected-stmt | save-stmt | target-stmt | |
| 38 | volatile-stmt | value-stmt | common-stmt | equivalence-stmt |
| 39 | R514 executable-construct -> |
| 40 | action-stmt | associate-construct | block-construct | case-construct | |
| 41 | change-team-construct | critical-construct | do-construct | |
| 42 | if-construct | select-rank-construct | select-type-construct | |
| 43 | where-construct | forall-construct |
| 44 | R515 action-stmt -> |
| 45 | allocate-stmt | assignment-stmt | backspace-stmt | call-stmt | |
| 46 | close-stmt | continue-stmt | cycle-stmt | deallocate-stmt | |
| 47 | endfile-stmt | error-stop-stmt | event-post-stmt | event-wait-stmt | |
| 48 | exit-stmt | fail-image-stmt | flush-stmt | form-team-stmt | |
| 49 | goto-stmt | if-stmt | inquire-stmt | lock-stmt | nullify-stmt | |
| 50 | open-stmt | pointer-assignment-stmt | print-stmt | read-stmt | |
| 51 | return-stmt | rewind-stmt | stop-stmt | sync-all-stmt | |
| 52 | sync-images-stmt | sync-memory-stmt | sync-team-stmt | unlock-stmt | |
| 53 | wait-stmt | where-stmt | write-stmt | computed-goto-stmt | forall-stmt |
| 54 | R516 keyword -> name |
| 55 | |
| 56 | R601 alphanumeric-character -> letter | digit | underscore @ | $ |
| 57 | R602 underscore -> _ |
| 58 | R603 name -> letter [alphanumeric-character]... |
| 59 | R604 constant -> literal-constant | named-constant |
| 60 | R605 literal-constant -> |
| 61 | int-literal-constant | real-literal-constant | |
| 62 | complex-literal-constant | logical-literal-constant | |
| 63 | char-literal-constant | boz-literal-constant |
| 64 | R606 named-constant -> name |
| 65 | R607 int-constant -> constant |
| 66 | R608 intrinsic-operator -> |
| 67 | power-op | mult-op | add-op | concat-op | rel-op | |
| 68 | not-op | and-op | or-op | equiv-op |
| 69 | R609 defined-operator -> |
| 70 | defined-unary-op | defined-binary-op | extended-intrinsic-op |
| 71 | R610 extended-intrinsic-op -> intrinsic-operator |
| 72 | R611 label -> digit [digit]... |
| 73 | R620 delimiter -> ( | ) | / | [ | ] | (/ | /) |
| 74 | |
| 75 | R701 type-param-value -> scalar-int-expr | * | : |
| 76 | R702 type-spec -> intrinsic-type-spec | derived-type-spec |
| 77 | R703 declaration-type-spec -> |
| 78 | intrinsic-type-spec | TYPE ( intrinsic-type-spec ) | |
| 79 | TYPE ( derived-type-spec ) | CLASS ( derived-type-spec ) | |
| 80 | CLASS ( * ) | TYPE ( * ) |
| 81 | R704 intrinsic-type-spec -> |
| 82 | integer-type-spec | REAL [kind-selector] | DOUBLE PRECISION | |
| 83 | COMPLEX [kind-selector] | CHARACTER [char-selector] | |
| 84 | LOGICAL [kind-selector] |
| 85 | R705 integer-type-spec -> INTEGER [kind-selector] |
| 86 | R706 kind-selector -> |
| 87 | ( [KIND =] scalar-int-constant-expr ) @ * scalar-int-constant-expr |
| 88 | R707 signed-int-literal-constant -> [sign] int-literal-constant |
| 89 | R708 int-literal-constant -> digit-string [_ kind-param] |
| 90 | R709 kind-param -> digit-string | scalar-int-constant-name |
| 91 | R710 signed-digit-string -> [sign] digit-string |
| 92 | R711 digit-string -> digit [digit]... |
| 93 | R712 sign -> + | - |
| 94 | R713 signed-real-literal-constant -> [sign] real-literal-constant |
| 95 | R714 real-literal-constant -> |
| 96 | significand [exponent-letter exponent] [_ kind-param] | |
| 97 | digit-string exponent-letter exponent [_ kind-param] |
| 98 | R715 significand -> digit-string . [digit-string] | . digit-string |
| 99 | R716 exponent-letter -> E | D @ | Q |
| 100 | R717 exponent -> signed-digit-string |
| 101 | R718 complex-literal-constant -> ( real-part , imag-part ) |
| 102 | R719 real-part -> |
| 103 | signed-int-literal-constant | signed-real-literal-constant | |
| 104 | named-constant |
| 105 | R720 imag-part -> |
| 106 | signed-int-literal-constant | signed-real-literal-constant | |
| 107 | named-constant |
| 108 | R721 char-selector -> |
| 109 | length-selector | |
| 110 | ( LEN = type-param-value , KIND = scalar-int-constant-expr ) | |
| 111 | ( type-param-value , [KIND =] scalar-int-constant-expr ) | |
| 112 | ( KIND = scalar-int-constant-expr [, LEN = type-param-value] ) |
| 113 | R722 length-selector -> ( [LEN =] type-param-value ) | * char-length [,] |
| 114 | R723 char-length -> ( type-param-value ) | digit-string |
| 115 | R724 char-literal-constant -> |
| 116 | [kind-param _] ' [rep-char]... ' | [kind-param _] " [rep-char]... " |
| 117 | R725 logical-literal-constant -> .TRUE. | .FALSE. @ | .T. | .F. |
| 118 | R726 derived-type-def -> |
| 119 | derived-type-stmt [type-param-def-stmt]... [private-or-sequence]... |
| 120 | [component-part] [type-bound-procedure-part] end-type-stmt |
| 121 | R727 derived-type-stmt -> |
| 122 | TYPE [[, type-attr-spec-list] ::] type-name [( type-param-name-list )] |
| 123 | R728 type-attr-spec -> |
| 124 | ABSTRACT | access-spec | BIND(C) | EXTENDS ( parent-type-name ) |
| 125 | R729 private-or-sequence -> private-components-stmt | sequence-stmt |
| 126 | R730 end-type-stmt -> END TYPE [type-name] |
| 127 | R731 sequence-stmt -> SEQUENCE |
| 128 | R732 type-param-def-stmt -> |
| 129 | integer-type-spec , type-param-attr-spec :: type-param-decl-list |
| 130 | R733 type-param-decl -> type-param-name [= scalar-int-constant-expr] |
| 131 | R734 type-param-attr-spec -> KIND | LEN |
| 132 | R735 component-part -> [component-def-stmt]... |
| 133 | R736 component-def-stmt -> data-component-def-stmt | proc-component-def-stmt |
| 134 | R737 data-component-def-stmt -> |
| 135 | declaration-type-spec [[, component-attr-spec-list] ::] |
| 136 | component-decl-list |
| 137 | R738 component-attr-spec -> |
| 138 | access-spec | ALLOCATABLE | |
| 139 | CODIMENSION lbracket coarray-spec rbracket | CONTIGUOUS | |
| 140 | DIMENSION ( component-array-spec ) | POINTER |
| 141 | R739 component-decl -> |
| 142 | component-name [( component-array-spec )] |
| 143 | [lbracket coarray-spec rbracket] [* char-length] |
| 144 | [component-initialization] |
| 145 | R740 component-array-spec -> |
| 146 | explicit-shape-spec-list | deferred-shape-spec-list |
| 147 | R741 proc-component-def-stmt -> |
| 148 | PROCEDURE ( [proc-interface] ) , proc-component-attr-spec-list :: |
| 149 | proc-decl-list |
| 150 | R742 proc-component-attr-spec -> |
| 151 | access-spec | NOPASS | PASS [(arg-name)] | POINTER |
| 152 | R743 component-initialization -> |
| 153 | = constant-expr | => null-init | => initial-data-target |
| 154 | R744 initial-data-target -> designator |
| 155 | R745 private-components-stmt -> PRIVATE |
| 156 | R746 type-bound-procedure-part -> |
| 157 | contains-stmt [binding-private-stmt] [type-bound-proc-binding]... |
| 158 | R747 binding-private-stmt -> PRIVATE |
| 159 | R748 type-bound-proc-binding -> |
| 160 | type-bound-procedure-stmt | type-bound-generic-stmt | |
| 161 | final-procedure-stmt |
| 162 | R749 type-bound-procedure-stmt -> |
| 163 | PROCEDURE [[, bind-attr-list] ::] type-bound-proc-decl-list | |
| 164 | PROCEDURE ( interface-name ) , bind-attr-list :: binding-name-list |
| 165 | R750 type-bound-proc-decl -> binding-name [=> procedure-name] |
| 166 | R751 type-bound-generic-stmt -> |
| 167 | GENERIC [, access-spec] :: generic-spec => binding-name-list |
| 168 | R752 bind-attr -> |
| 169 | access-spec | DEFERRED | NON_OVERRIDABLE | NOPASS | PASS [(arg-name)] |
| 170 | R753 final-procedure-stmt -> FINAL [::] final-subroutine-name-list |
| 171 | R754 derived-type-spec -> type-name [(type-param-spec-list)] |
| 172 | R755 type-param-spec -> [keyword =] type-param-value |
| 173 | R756 structure-constructor -> derived-type-spec ( [component-spec-list] ) |
| 174 | R757 component-spec -> [keyword =] component-data-source |
| 175 | R758 component-data-source -> expr | data-target | proc-target |
| 176 | R759 enum-def -> |
| 177 | enum-def-stmt enumerator-def-stmt [enumerator-def-stmt]... end-enum-stmt |
| 178 | R760 enum-def-stmt -> ENUM, BIND(C) |
| 179 | R761 enumerator-def-stmt -> ENUMERATOR [::] enumerator-list |
| 180 | R762 enumerator -> named-constant [= scalar-int-constant-expr] |
| 181 | R763 end-enum-stmt -> END ENUM |
| 182 | R764 boz-literal-constant -> binary-constant | octal-constant | hex-constant |
| 183 | R765 binary-constant -> B ' digit [digit]... ' | B " digit [digit]... " |
| 184 | R766 octal-constant -> O ' digit [digit]... ' | O " digit [digit]... " |
| 185 | R767 hex-constant -> |
| 186 | Z ' hex-digit [hex-digit]... ' | Z " hex-digit [hex-digit]... " |
| 187 | R768 hex-digit -> digit | A | B | C | D | E | F |
| 188 | R769 array-constructor -> (/ ac-spec /) | lbracket ac-spec rbracket |
| 189 | R770 ac-spec -> type-spec :: | [type-spec ::] ac-value-list |
| 190 | R771 lbracket -> [ |
| 191 | R772 rbracket -> ] |
| 192 | R773 ac-value -> expr | ac-implied-do |
| 193 | R774 ac-implied-do -> ( ac-value-list , ac-implied-do-control ) |
| 194 | R775 ac-implied-do-control -> |
| 195 | [integer-type-spec ::] ac-do-variable = scalar-int-expr , |
| 196 | scalar-int-expr [, scalar-int-expr] |
| 197 | R776 ac-do-variable -> do-variable |
| 198 | |
| 199 | R801 type-declaration-stmt -> |
| 200 | declaration-type-spec [[, attr-spec]... ::] entity-decl-list |
| 201 | R802 attr-spec -> |
| 202 | access-spec | ALLOCATABLE | ASYNCHRONOUS | |
| 203 | CODIMENSION lbracket coarray-spec rbracket | CONTIGUOUS | |
| 204 | DIMENSION ( array-spec ) | EXTERNAL | INTENT ( intent-spec ) | |
| 205 | INTRINSIC | language-binding-spec | OPTIONAL | PARAMETER | |
| 206 | POINTER | PROTECTED | SAVE | TARGET | VALUE | VOLATILE |
| 207 | R803 entity-decl -> |
| 208 | object-name [( array-spec )] [lbracket coarray-spec rbracket] |
| 209 | [* char-length] [initialization] | |
| 210 | function-name [* char-length] |
| 211 | R804 object-name -> name |
| 212 | R805 initialization -> = constant-expr | => null-init | => initial-data-target |
| 213 | R806 null-init -> function-reference |
| 214 | R807 access-spec -> PUBLIC | PRIVATE |
| 215 | R808 language-binding-spec -> |
| 216 | BIND ( C [, NAME = scalar-default-char-constant-expr] ) |
| 217 | R809 coarray-spec -> deferred-coshape-spec-list | explicit-coshape-spec |
| 218 | R810 deferred-coshape-spec -> : |
| 219 | R811 explicit-coshape-spec -> |
| 220 | [[lower-cobound :] upper-cobound ,]... [lower-cobound :] * |
| 221 | R812 lower-cobound -> specification-expr |
| 222 | R813 upper-cobound -> specification-expr |
| 223 | R814 dimension-spec -> DIMENSION ( array-spec ) |
| 224 | R815 array-spec -> |
| 225 | explicit-shape-spec-list | assumed-shape-spec-list | |
| 226 | deferred-shape-spec-list | assumed-size-spec | implied-shape-spec | |
| 227 | implied-shape-or-assumed-size-spec | assumed-rank-spec |
| 228 | R816 explicit-shape-spec -> [lower-bound :] upper-bound |
| 229 | R817 lower-bound -> specification-expr |
| 230 | R818 upper-bound -> specification-expr |
| 231 | R819 assumed-shape-spec -> [lower-bound] : |
| 232 | R820 deferred-shape-spec -> : |
| 233 | R821 assumed-implied-spec -> [lower-bound :] * |
| 234 | R822 assumed-size-spec -> explicit-shape-spec-list , assumed-implied-spec |
| 235 | R823 implied-shape-or-assumed-size-spec -> assumed-implied-spec |
| 236 | R824 implied-shape-spec -> assumed-implied-spec , assumed-implied-spec-list |
| 237 | R825 assumed-rank-spec -> .. |
| 238 | R826 intent-spec -> IN | OUT | INOUT |
| 239 | R827 access-stmt -> access-spec [[::] access-id-list] |
| 240 | R828 access-id -> access-name | generic-spec |
| 241 | R829 allocatable-stmt -> ALLOCATABLE [::] allocatable-decl-list |
| 242 | R830 allocatable-decl -> |
| 243 | object-name [( array-spec )] [lbracket coarray-spec rbracket] |
| 244 | R831 asynchronous-stmt -> ASYNCHRONOUS [::] object-name-list |
| 245 | R832 bind-stmt -> language-binding-spec [::] bind-entity-list |
| 246 | R833 bind-entity -> entity-name | / common-block-name / |
| 247 | R834 codimension-stmt -> CODIMENSION [::] codimension-decl-list |
| 248 | R835 codimension-decl -> coarray-name lbracket coarray-spec rbracket |
| 249 | R836 contiguous-stmt -> CONTIGUOUS [::] object-name-list |
| 250 | R837 data-stmt -> DATA data-stmt-set [[,] data-stmt-set]... |
| 251 | R838 data-stmt-set -> data-stmt-object-list / data-stmt-value-list / |
| 252 | R839 data-stmt-object -> variable | data-implied-do |
| 253 | R840 data-implied-do -> |
| 254 | ( data-i-do-object-list , [integer-type-spec ::] |
| 255 | data-i-do-variable = scalar-int-constant-expr , |
| 256 | scalar-int-constant-expr [, scalar-int-constant-expr] ) |
| 257 | R841 data-i-do-object -> |
| 258 | array-element | scalar-structure-component | data-implied-do |
| 259 | R842 data-i-do-variable -> do-variable |
| 260 | R843 data-stmt-value -> [data-stmt-repeat *] data-stmt-constant |
| 261 | R844 data-stmt-repeat -> scalar-int-constant | scalar-int-constant-subobject |
| 262 | R845 data-stmt-constant -> |
| 263 | scalar-constant | scalar-constant-subobject | |
| 264 | signed-int-literal-constant | signed-real-literal-constant | |
| 265 | null-init | initial-data-target | structure-constructor |
| 266 | R846 int-constant-subobject -> constant-subobject |
| 267 | R847 constant-subobject -> designator |
| 268 | R848 dimension-stmt -> |
| 269 | DIMENSION [::] array-name ( array-spec ) |
| 270 | [, array-name ( array-spec )]... |
| 271 | R849 intent-stmt -> INTENT ( intent-spec ) [::] dummy-arg-name-list |
| 272 | R850 optional-stmt -> OPTIONAL [::] dummy-arg-name-list |
| 273 | R851 parameter-stmt -> PARAMETER ( named-constant-def-list ) |
| 274 | R852 named-constant-def -> named-constant = constant-expr |
| 275 | R853 pointer-stmt -> POINTER [::] pointer-decl-list |
| 276 | R854 pointer-decl -> |
| 277 | object-name [( deferred-shape-spec-list )] | proc-entity-name |
| 278 | R855 protected-stmt -> PROTECTED [::] entity-name-list |
| 279 | R856 save-stmt -> SAVE [[::] saved-entity-list] |
| 280 | R857 saved-entity -> object-name | proc-pointer-name | / common-block-name / |
| 281 | R858 proc-pointer-name -> name |
| 282 | R859 target-stmt -> TARGET [::] target-decl-list |
| 283 | R860 target-decl -> |
| 284 | object-name [( array-spec )] [lbracket coarray-spec rbracket] |
| 285 | R861 value-stmt -> VALUE [::] dummy-arg-name-list |
| 286 | R862 volatile-stmt -> VOLATILE [::] object-name-list |
| 287 | R863 implicit-stmt -> |
| 288 | IMPLICIT implicit-spec-list | |
| 289 | IMPLICIT NONE [( [implicit-name-spec-list] )] |
| 290 | R864 implicit-spec -> declaration-type-spec ( letter-spec-list ) |
| 291 | R865 letter-spec -> letter [- letter] |
| 292 | R866 implicit-name-spec -> EXTERNAL | TYPE |
| 293 | R867 import-stmt -> |
| 294 | IMPORT [[::] import-name-list] | IMPORT , ONLY : import-name-list | |
| 295 | IMPORT , NONE | IMPORT , ALL |
| 296 | R868 namelist-stmt -> |
| 297 | NAMELIST / namelist-group-name / namelist-group-object-list |
| 298 | [[,] / namelist-group-name / namelist-group-object-list]... |
| 299 | R869 namelist-group-object -> variable-name |
| 300 | R870 equivalence-stmt -> EQUIVALENCE equivalence-set-list |
| 301 | R871 equivalence-set -> ( equivalence-object , equivalence-object-list ) |
| 302 | R872 equivalence-object -> variable-name | array-element | substring |
| 303 | R873 common-stmt -> |
| 304 | COMMON [/ [common-block-name] /] common-block-object-list |
| 305 | [[,] / [common-block-name] / common-block-object-list]... |
| 306 | R874 common-block-object -> variable-name [( array-spec )] |
| 307 | |
| 308 | R901 designator -> |
| 309 | object-name | array-element | array-section | |
| 310 | coindexed-named-object | complex-part-designator | |
| 311 | structure-component | substring |
| 312 | R902 variable -> designator | function-reference |
| 313 | R903 variable-name -> name |
| 314 | R904 logical-variable -> variable |
| 315 | R905 char-variable -> variable |
| 316 | R906 default-char-variable -> variable |
| 317 | R907 int-variable -> variable |
| 318 | R908 substring -> parent-string ( substring-range ) |
| 319 | R909 parent-string -> |
| 320 | scalar-variable-name | array-element | coindexed-named-object | |
| 321 | scalar-structure-component | scalar-char-literal-constant | |
| 322 | scalar-named-constant |
| 323 | R910 substring-range -> [scalar-int-expr] : [scalar-int-expr] |
| 324 | R911 data-ref -> part-ref [% part-ref]... |
| 325 | R912 part-ref -> part-name [( section-subscript-list )] [image-selector] |
| 326 | R913 structure-component -> data-ref |
| 327 | R914 coindexed-named-object -> data-ref |
| 328 | R915 complex-part-designator -> designator % RE | designator % IM |
| 329 | R916 type-param-inquiry -> designator % type-param-name |
| 330 | R917 array-element -> data-ref |
| 331 | R918 array-section -> |
| 332 | data-ref [( substring-range )] | complex-part-designator |
| 333 | R919 subscript -> scalar-int-expr |
| 334 | R920 section-subscript -> subscript | subscript-triplet | vector-subscript |
| 335 | R921 subscript-triplet -> [subscript] : [subscript] [: stride] |
| 336 | R922 stride -> scalar-int-expr |
| 337 | R923 vector-subscript -> int-expr |
| 338 | R924 image-selector -> |
| 339 | lbracket cosubscript-list [, image-selector-spec-list] rbracket |
| 340 | R925 cosubscript -> scalar-int-expr |
| 341 | R926 image-selector-spec -> |
| 342 | STAT = stat-variable | TEAM = team-variable | |
| 343 | TEAM_NUMBER = scalar-int-expr |
| 344 | R927 allocate-stmt -> |
| 345 | ALLOCATE ( [type-spec ::] allocation-list [, alloc-opt-list] ) |
| 346 | R928 alloc-opt -> |
| 347 | ERRMSG = errmsg-variable | MOLD = source-expr | |
| 348 | SOURCE = source-expr | STAT = stat-variable |
| 349 | R929 stat-variable -> scalar-int-variable |
| 350 | R930 errmsg-variable -> scalar-default-char-variable |
| 351 | R931 source-expr -> expr |
| 352 | R932 allocation -> |
| 353 | allocate-object [( allocate-shape-spec-list )] |
| 354 | [lbracket allocate-coarray-spec rbracket] |
| 355 | R933 allocate-object -> variable-name | structure-component |
| 356 | R934 allocate-shape-spec -> [lower-bound-expr :] upper-bound-expr |
| 357 | R935 lower-bound-expr -> scalar-int-expr |
| 358 | R936 upper-bound-expr -> scalar-int-expr |
| 359 | R937 allocate-coarray-spec -> |
| 360 | [allocate-coshape-spec-list ,] [lower-bound-expr :] * |
| 361 | R938 allocate-coshape-spec -> [lower-bound-expr :] upper-bound-expr |
| 362 | R939 nullify-stmt -> NULLIFY ( pointer-object-list ) |
| 363 | R940 pointer-object -> variable-name | structure-component | proc-pointer-name |
| 364 | R941 deallocate-stmt -> |
| 365 | DEALLOCATE ( allocate-object-list [, dealloc-opt-list] ) |
| 366 | R942 dealloc-opt -> STAT = stat-variable | ERRMSG = errmsg-variable |
| 367 | |
| 368 | R1001 primary -> |
| 369 | literal-constant | designator | array-constructor | |
| 370 | structure-constructor | function-reference | type-param-inquiry | |
| 371 | type-param-name | ( expr ) |
| 372 | R1002 level-1-expr -> [defined-unary-op] primary |
| 373 | R1003 defined-unary-op -> . letter [letter]... . |
| 374 | R1004 mult-operand -> level-1-expr [power-op mult-operand] |
| 375 | R1005 add-operand -> [add-operand mult-op] mult-operand |
| 376 | R1006 level-2-expr -> [[level-2-expr] add-op] add-operand |
| 377 | R1007 power-op -> ** |
| 378 | R1008 mult-op -> * | / |
| 379 | R1009 add-op -> + | - |
| 380 | R1010 level-3-expr -> [level-3-expr concat-op] level-2-expr |
| 381 | R1011 concat-op -> // |
| 382 | R1012 level-4-expr -> [level-3-expr rel-op] level-3-expr |
| 383 | R1013 rel-op -> |
| 384 | .EQ. | .NE. | .LT. | .LE. | .GT. | .GE. | |
| 385 | == | /= | < | <= | > | >= @ | <> |
| 386 | R1014 and-operand -> [not-op] level-4-expr |
| 387 | R1015 or-operand -> [or-operand and-op] and-operand |
| 388 | R1016 equiv-operand -> [equiv-operand or-op] or-operand |
| 389 | R1017 level-5-expr -> [level-5-expr equiv-op] equiv-operand |
| 390 | R1018 not-op -> .NOT. |
| 391 | R1019 and-op -> .AND. |
| 392 | R1020 or-op -> .OR. |
| 393 | R1021 equiv-op -> .EQV. | .NEQV. |
| 394 | R1022 expr -> [expr defined-binary-op] level-5-expr |
| 395 | R1023 defined-binary-op -> . letter [letter]... . |
| 396 | R1024 logical-expr -> expr |
| 397 | R1025 default-char-expr -> expr |
| 398 | R1026 int-expr -> expr |
| 399 | R1027 numeric-expr -> expr |
| 400 | R1028 specification-expr -> scalar-int-expr |
| 401 | R1029 constant-expr -> expr |
| 402 | R1030 default-char-constant-expr -> default-char-expr |
| 403 | R1031 int-constant-expr -> int-expr |
| 404 | R1032 assignment-stmt -> variable = expr |
| 405 | R1033 pointer-assignment-stmt -> |
| 406 | data-pointer-object [( bounds-spec-list )] => data-target | |
| 407 | data-pointer-object ( bounds-remapping-list ) => data-target | |
| 408 | proc-pointer-object => proc-target |
| 409 | R1034 data-pointer-object -> |
| 410 | variable-name | scalar-variable % data-pointer-component-name |
| 411 | R1035 bounds-spec -> lower-bound-expr : |
| 412 | R1036 bounds-remapping -> lower-bound-expr : upper-bound-expr |
| 413 | R1037 data-target -> expr |
| 414 | R1038 proc-pointer-object -> proc-pointer-name | proc-component-ref |
| 415 | R1039 proc-component-ref -> scalar-variable % procedure-component-name |
| 416 | R1040 proc-target -> expr | procedure-name | proc-component-ref |
| 417 | R1041 where-stmt -> WHERE ( mask-expr ) where-assignment-stmt |
| 418 | R1042 where-construct -> |
| 419 | where-construct-stmt [where-body-construct]... |
| 420 | [masked-elsewhere-stmt [where-body-construct]...]... |
| 421 | [elsewhere-stmt [where-body-construct]...] end-where-stmt |
| 422 | R1043 where-construct-stmt -> [where-construct-name :] WHERE ( mask-expr ) |
| 423 | R1044 where-body-construct -> |
| 424 | where-assignment-stmt | where-stmt | where-construct |
| 425 | R1045 where-assignment-stmt -> assignment-stmt |
| 426 | R1046 mask-expr -> logical-expr |
| 427 | R1047 masked-elsewhere-stmt -> ELSEWHERE ( mask-expr ) [where-construct-name] |
| 428 | R1048 elsewhere-stmt -> ELSEWHERE [where-construct-name] |
| 429 | R1049 end-where-stmt -> END WHERE [where-construct-name] |
| 430 | R1050 forall-construct -> |
| 431 | forall-construct-stmt [forall-body-construct]... end-forall-stmt |
| 432 | R1051 forall-construct-stmt -> |
| 433 | [forall-construct-name :] FORALL concurrent-header |
| 434 | R1052 forall-body-construct -> |
| 435 | forall-assignment-stmt | where-stmt | where-construct | |
| 436 | forall-construct | forall-stmt |
| 437 | R1053 forall-assignment-stmt -> assignment-stmt | pointer-assignment-stmt |
| 438 | R1054 end-forall-stmt -> END FORALL [forall-construct-name] |
| 439 | R1055 forall-stmt -> FORALL concurrent-header forall-assignment-stmt |
| 440 | |
| 441 | R1101 block -> [execution-part-construct]... |
| 442 | R1102 associate-construct -> associate-stmt block end-associate-stmt |
| 443 | R1103 associate-stmt -> |
| 444 | [associate-construct-name :] ASSOCIATE ( association-list ) |
| 445 | R1104 association -> associate-name => selector |
| 446 | R1105 selector -> expr | variable |
| 447 | R1106 end-associate-stmt -> END ASSOCIATE [associate-construct-name] |
| 448 | R1107 block-construct -> |
| 449 | block-stmt [block-specification-part] block end-block-stmt |
| 450 | R1108 block-stmt -> [block-construct-name :] BLOCK |
| 451 | R1109 block-specification-part -> |
| 452 | [use-stmt]... [import-stmt]... [implicit-part] |
| 453 | [[declaration-construct]... specification-construct] |
| 454 | R1110 end-block-stmt -> END BLOCK [block-construct-name] |
| 455 | R1111 change-team-construct -> change-team-stmt block end-change-team-stmt |
| 456 | R1112 change-team-stmt -> |
| 457 | [team-construct-name :] CHANGE TEAM ( team-variable |
| 458 | [, coarray-association-list] [, sync-stat-list] ) |
| 459 | R1113 coarray-association -> codimension-decl => selector |
| 460 | R1114 end-change-team-stmt -> |
| 461 | END TEAM [( [sync-stat-list] )] [team-construct-name] |
| 462 | R1115 team-variable -> scalar-variable |
| 463 | R1116 critical-construct -> critical-stmt block end-critical-stmt |
| 464 | R1117 critical-stmt -> |
| 465 | [critical-construct-name :] CRITICAL [( [sync-stat-list] )] |
| 466 | R1118 end-critical-stmt -> END CRITICAL [critical-construct-name] |
| 467 | R1119 do-construct -> do-stmt block end-do |
| 468 | R1120 do-stmt -> nonlabel-do-stmt | label-do-stmt |
| 469 | R1121 label-do-stmt -> [do-construct-name :] DO label [loop-control] |
| 470 | R1122 nonlabel-do-stmt -> [do-construct-name :] DO [loop-control] |
| 471 | R1123 loop-control -> |
| 472 | [,] do-variable = scalar-int-expr , scalar-int-expr |
| 473 | [, scalar-int-expr] | |
| 474 | [,] WHILE ( scalar-logical-expr ) | |
| 475 | [,] CONCURRENT concurrent-header concurrent-locality |
| 476 | R1124 do-variable -> scalar-int-variable-name |
| 477 | R1125 concurrent-header -> |
| 478 | ( [integer-type-spec ::] concurrent-control-list [, scalar-mask-expr] ) |
| 479 | R1126 concurrent-control -> |
| 480 | index-name = concurrent-limit : concurrent-limit [: concurrent-step] |
| 481 | R1127 concurrent-limit -> scalar-int-expr |
| 482 | R1128 concurrent-step -> scalar-int-expr |
| 483 | R1129 concurrent-locality -> [locality-spec]... |
| 484 | R1130 locality-spec -> |
| 485 | LOCAL ( variable-name-list ) | LOCAL INIT ( variable-name-list ) | |
| 486 | SHARED ( variable-name-list ) | DEFAULT ( NONE ) |
| 487 | R1131 end-do -> end-do-stmt | continue-stmt |
| 488 | R1132 end-do-stmt -> END DO [do-construct-name] |
| 489 | R1133 cycle-stmt -> CYCLE [do-construct-name] |
| 490 | R1134 if-construct -> |
| 491 | if-then-stmt block [else-if-stmt block]... [else-stmt block] |
| 492 | end-if-stmt |
| 493 | R1135 if-then-stmt -> [if-construct-name :] IF ( scalar-logical-expr ) THEN |
| 494 | R1136 else-if-stmt -> ELSE IF ( scalar-logical-expr ) THEN [if-construct-name] |
| 495 | R1137 else-stmt -> ELSE [if-construct-name] |
| 496 | R1138 end-if-stmt -> END IF [if-construct-name] |
| 497 | R1139 if-stmt -> IF ( scalar-logical-expr ) action-stmt |
| 498 | R1140 case-construct -> select-case-stmt [case-stmt block]... end-select-stmt |
| 499 | R1141 select-case-stmt -> [case-construct-name :] SELECT CASE ( case-expr ) |
| 500 | R1142 case-stmt -> CASE case-selector [case-construct-name] |
| 501 | R1143 end-select-stmt -> END SELECT [case-construct-name] |
| 502 | R1144 case-expr -> scalar-expr |
| 503 | R1145 case-selector -> ( case-value-range-list ) | DEFAULT |
| 504 | R1146 case-value-range -> |
| 505 | case-value | case-value : | : case-value | case-value : case-value |
| 506 | R1147 case-value -> scalar-constant-expr |
| 507 | R1148 select-rank-construct -> |
| 508 | select-rank-stmt [select-rank-case-stmt block]... end-select-rank-stmt |
| 509 | R1149 select-rank-stmt -> |
| 510 | [select-construct-name :] SELECT RANK ( [associate-name =>] selector ) |
| 511 | R1150 select-rank-case-stmt -> |
| 512 | RANK ( scalar-int-constant-expr ) [select-construct-name] | |
| 513 | RANK ( * ) [select-construct-name] | |
| 514 | RANK DEFAULT [select-construct-name] |
| 515 | R1151 end-select-rank-stmt -> END SELECT [select-construct-name] |
| 516 | R1152 select-type-construct -> |
| 517 | select-type-stmt [type-guard-stmt block]... end-select-type-stmt |
| 518 | R1153 select-type-stmt -> |
| 519 | [select-construct-name :] SELECT TYPE ( [associate-name =>] selector ) |
| 520 | R1154 type-guard-stmt -> |
| 521 | TYPE IS ( type-spec ) [select-construct-name] | |
| 522 | CLASS IS ( derived-type-spec ) [select-construct-name] | |
| 523 | CLASS DEFAULT [select-construct-name] |
| 524 | R1155 end-select-type-stmt -> END SELECT [select-construct-name] |
| 525 | R1156 exit-stmt -> EXIT [construct-name] |
| 526 | R1157 goto-stmt -> GO TO label |
| 527 | R1158 computed-goto-stmt -> GO TO ( label-list ) [,] scalar-int-expr |
| 528 | R1159 continue-stmt -> CONTINUE |
| 529 | R1160 stop-stmt -> STOP [stop-code] [, QUIET = scalar-logical-expr] |
| 530 | R1161 error-stop-stmt -> ERROR STOP [stop-code] [, QUIET = scalar-logical-expr] |
| 531 | R1162 stop-code -> scalar-default-char-expr | scalar-int-expr |
| 532 | R1163 fail-image-stmt -> FAIL IMAGE |
| 533 | R1164 sync-all-stmt -> SYNC ALL [( [sync-stat-list] )] |
| 534 | R1165 sync-stat -> STAT = stat-variable | ERRMSG = errmsg-variable |
| 535 | R1166 sync-images-stmt -> SYNC IMAGES ( image-set [, sync-stat-list] ) |
| 536 | R1167 image-set -> int-expr | * |
| 537 | R1168 sync-memory-stmt -> SYNC MEMORY [( [sync-stat-list] )] |
| 538 | R1169 sync-team-stmt -> SYNC TEAM ( team-variable [, sync-stat-list] ) |
| 539 | R1170 event-post-stmt -> EVENT POST ( event-variable [, sync-stat-list] ) |
| 540 | R1171 event-variable -> scalar-variable |
| 541 | R1172 event-wait-stmt -> EVENT WAIT ( event-variable [, event-wait-spec-list] ) |
| 542 | R1173 event-wait-spec -> until-spec | sync-stat |
| 543 | R1174 until-spec -> UNTIL_COUNT = scalar-int-expr |
| 544 | R1175 form-team-stmt -> |
| 545 | FORM TEAM ( team-number , team-variable [, form-team-spec-list] ) |
| 546 | R1176 team-number -> scalar-int-expr |
| 547 | R1177 form-team-spec -> NEW_INDEX = scalar-int-expr | sync-stat |
| 548 | R1178 lock-stmt -> LOCK ( lock-variable [, lock-stat-list] ) |
| 549 | R1179 lock-stat -> ACQUIRED_LOCK = scalar-logical-variable | sync-stat |
| 550 | R1180 unlock-stmt -> UNLOCK ( lock-variable [, sync-stat-list] ) |
| 551 | R1181 lock-variable -> scalar-variable |
| 552 | |
| 553 | R1201 io-unit -> file-unit-number | * | internal-file-variable |
| 554 | R1202 file-unit-number -> scalar-int-expr |
| 555 | R1203 internal-file-variable -> char-variable |
| 556 | R1204 open-stmt -> OPEN ( connect-spec-list ) |
| 557 | R1205 connect-spec -> |
| 558 | [UNIT =] file-unit-number | ACCESS = scalar-default-char-expr | |
| 559 | ACTION = scalar-default-char-expr | |
| 560 | ASYNCHRONOUS = scalar-default-char-expr | |
| 561 | BLANK = scalar-default-char-expr | |
| 562 | DECIMAL = scalar-default-char-expr | DELIM = scalar-default-char-expr | |
| 563 | ENCODING = scalar-default-char-expr | ERR = label | |
| 564 | FILE = file-name-expr | FORM = scalar-default-char-expr | |
| 565 | IOMSG = iomsg-variable | IOSTAT = scalar-int-variable | |
| 566 | NEWUNIT = scalar-int-variable | PAD = scalar-default-char-expr | |
| 567 | POSITION = scalar-default-char-expr | RECL = scalar-int-expr | |
| 568 | ROUND = scalar-default-char-expr | SIGN = scalar-default-char-expr | |
| 569 | STATUS = scalar-default-char-expr |
| 570 | R1206 file-name-expr -> scalar-default-char-expr |
| 571 | R1207 iomsg-variable -> scalar-default-char-variable |
| 572 | R1208 close-stmt -> CLOSE ( close-spec-list ) |
| 573 | R1209 close-spec -> |
| 574 | [UNIT =] file-unit-number | IOSTAT = scalar-int-variable | |
| 575 | IOMSG = iomsg-variable | ERR = label | |
| 576 | STATUS = scalar-default-char-expr |
| 577 | R1210 read-stmt -> |
| 578 | READ ( io-control-spec-list ) [input-item-list] | |
| 579 | READ format [, input-item-list] |
| 580 | R1211 write-stmt -> WRITE ( io-control-spec-list ) [output-item-list] |
| 581 | R1212 print-stmt -> PRINT format [, output-item-list] |
| 582 | R1213 io-control-spec -> |
| 583 | [UNIT =] io-unit | [FMT =] format | [NML =] namelist-group-name | |
| 584 | ADVANCE = scalar-default-char-expr | |
| 585 | ASYNCHRONOUS = scalar-default-char-constant-expr | |
| 586 | BLANK = scalar-default-char-expr | DECIMAL = scalar-default-char-expr | |
| 587 | DELIM = scalar-default-char-expr | END = label | EOR = label | |
| 588 | ERR = label | ID = id-variable | IOMSG = iomsg-variable | |
| 589 | IOSTAT = scalar-int-variable | PAD = scalar-default-char-expr | |
| 590 | POS = scalar-int-expr | REC = scalar-int-expr | |
| 591 | ROUND = scalar-default-char-expr | SIGN = scalar-default-char-expr | |
| 592 | SIZE = scalar-int-variable |
| 593 | R1214 id-variable -> scalar-int-variable |
| 594 | R1215 format -> default-char-expr | label | * |
| 595 | R1216 input-item -> variable | io-implied-do |
| 596 | R1217 output-item -> expr | io-implied-do |
| 597 | R1218 io-implied-do -> ( io-implied-do-object-list , io-implied-do-control ) |
| 598 | R1219 io-implied-do-object -> input-item | output-item |
| 599 | R1220 io-implied-do-control -> |
| 600 | do-variable = scalar-int-expr , scalar-int-expr [, scalar-int-expr] |
| 601 | R1221 dtv-type-spec -> TYPE ( derived-type-spec ) | CLASS ( derived-type-spec ) |
| 602 | R1222 wait-stmt -> WAIT ( wait-spec-list ) |
| 603 | R1223 wait-spec -> |
| 604 | [UNIT =] file-unit-number | END = label | EOR = label | ERR = label | |
| 605 | ID = scalar-int-expr | IOMSG = iomsg-variable | |
| 606 | IOSTAT = scalar-int-variable |
| 607 | R1224 backspace-stmt -> |
| 608 | BACKSPACE file-unit-number | BACKSPACE ( position-spec-list ) |
| 609 | R1225 endfile-stmt -> ENDFILE file-unit-number | ENDFILE ( position-spec-list ) |
| 610 | R1226 rewind-stmt -> REWIND file-unit-number | REWIND ( position-spec-list ) |
| 611 | R1227 position-spec -> |
| 612 | [UNIT =] file-unit-number | IOMSG = iomsg-variable | |
| 613 | IOSTAT = scalar-int-variable | ERR = label |
| 614 | R1228 flush-stmt -> FLUSH file-unit-number | FLUSH ( flush-spec-list ) |
| 615 | R1229 flush-spec -> |
| 616 | [UNIT =] file-unit-number | IOSTAT = scalar-int-variable | |
| 617 | IOMSG = iomsg-variable | ERR = label |
| 618 | R1230 inquire-stmt -> |
| 619 | INQUIRE ( inquire-spec-list ) | |
| 620 | INQUIRE ( IOLENGTH = scalar-int-variable ) output-item-list |
| 621 | R1231 inquire-spec -> |
| 622 | [UNIT =] file-unit-number | FILE = file-name-expr | |
| 623 | ACCESS = scalar-default-char-variable | |
| 624 | ACTION = scalar-default-char-variable | |
| 625 | ASYNCHRONOUS = scalar-default-char-variable | |
| 626 | BLANK = scalar-default-char-variable | |
| 627 | DECIMAL = scalar-default-char-variable | |
| 628 | DELIM = scalar-default-char-variable | |
| 629 | ENCODING = scalar-default-char-variable | |
| 630 | ERR = label | EXIST = scalar-logical-variable | |
| 631 | FORM = scalar-default-char-variable | |
| 632 | FORMATTED = scalar-default-char-variable | ID = scalar-int-expr | |
| 633 | IOMSG = iomsg-variable | IOSTAT = scalar-int-variable | |
| 634 | NAME = scalar-default-char-variable | |
| 635 | NAMED = scalar-logical-variable | NEXTREC = scalar-int-variable | |
| 636 | NUMBER = scalar-int-variable | OPENED = scalar-logical-variable | |
| 637 | PAD = scalar-default-char-variable | |
| 638 | PENDING = scalar-logical-variable | POS = scalar-int-variable | |
| 639 | POSITION = scalar-default-char-variable | |
| 640 | READ = scalar-default-char-variable | |
| 641 | READWRITE = scalar-default-char-variable | |
| 642 | RECL = scalar-int-variable | ROUND = scalar-default-char-variable | |
| 643 | SEQUENTIAL = scalar-default-char-variable | |
| 644 | SIGN = scalar-default-char-variable | SIZE = scalar-int-variable | |
| 645 | STREAM = scalar-default-char-variable | |
| 646 | STATUS = scalar-default-char-variable | |
| 647 | WRITE = scalar-default-char-variable |
| 648 | |
| 649 | R1301 format-stmt -> FORMAT format-specification |
| 650 | R1302 format-specification -> |
| 651 | ( [format-items] ) | ( [format-items ,] unlimited-format-item ) |
| 652 | R1303 format-items -> format-item [[,] format-item]... |
| 653 | R1304 format-item -> |
| 654 | [r] data-edit-desc | control-edit-desc | char-string-edit-desc | [r] ( format-items ) |
| 655 | R1305 unlimited-format-item -> * ( format-items ) |
| 656 | R1306 r -> digit-string |
| 657 | R1307 data-edit-desc -> |
| 658 | I w [. m] | B w [. m] | O w [. m] | Z w [. m] | F w . d | |
| 659 | E w . d [E e] | EN w . d [E e] | ES w . d [E e] | EX w . d [E e] | |
| 660 | G w [. d [E e]] | L w | A [w] | D w . d | |
| 661 | DT [char-literal-constant] [( v-list )] |
| 662 | R1308 w -> digit-string |
| 663 | R1309 m -> digit-string |
| 664 | R1310 d -> digit-string |
| 665 | R1311 e -> digit-string |
| 666 | R1312 v -> [sign] digit-string |
| 667 | R1313 control-edit-desc -> |
| 668 | position-edit-desc | [r] / | : | sign-edit-desc | k P | |
| 669 | blank-interp-edit-desc | round-edit-desc | decimal-edit-desc |
| 670 | R1314 k -> [sign] digit-string |
| 671 | R1315 position-edit-desc -> T n | TL n | TR n | n X |
| 672 | R1316 n -> digit-string |
| 673 | R1317 sign-edit-desc -> SS | SP | S |
| 674 | R1318 blank-interp-edit-desc -> BN | BZ |
| 675 | R1319 round-edit-desc -> RU | RD | RZ | RN | RC | RP |
| 676 | R1320 decimal-edit-desc -> DC | DP |
| 677 | R1321 char-string-edit-desc -> char-literal-constant |
| 678 | |
| 679 | R1401 main-program -> |
| 680 | [program-stmt] [specification-part] [execution-part] |
| 681 | [internal-subprogram-part] end-program-stmt |
| 682 | R1402 program-stmt -> PROGRAM program-name |
| 683 | R1403 end-program-stmt -> END [PROGRAM [program-name]] |
| 684 | R1404 module -> |
| 685 | module-stmt [specification-part] [module-subprogram-part] |
| 686 | end-module-stmt |
| 687 | R1405 module-stmt -> MODULE module-name |
| 688 | R1406 end-module-stmt -> END [MODULE [module-name]] |
| 689 | R1407 module-subprogram-part -> contains-stmt [module-subprogram]... |
| 690 | R1408 module-subprogram -> |
| 691 | function-subprogram | subroutine-subprogram | |
| 692 | separate-module-subprogram |
| 693 | R1409 use-stmt -> |
| 694 | USE [[, module-nature] ::] module-name [, rename-list] | |
| 695 | USE [[, module-nature] ::] module-name , ONLY : [only-list] |
| 696 | R1410 module-nature -> INTRINSIC | NON_INTRINSIC |
| 697 | R1411 rename -> |
| 698 | local-name => use-name | |
| 699 | OPERATOR ( local-defined-operator ) => |
| 700 | OPERATOR ( use-defined-operator ) |
| 701 | R1412 only -> generic-spec | only-use-name | rename |
| 702 | R1413 only-use-name -> use-name |
| 703 | R1414 local-defined-operator -> defined-unary-op | defined-binary-op |
| 704 | R1415 use-defined-operator -> defined-unary-op | defined-binary-op |
| 705 | R1416 submodule -> |
| 706 | submodule-stmt [specification-part] [module-subprogram-part] |
| 707 | end-submodule-stmt |
| 708 | R1417 submodule-stmt -> SUBMODULE ( parent-identifier ) submodule-name |
| 709 | R1418 parent-identifier -> ancestor-module-name [: parent-submodule-name] |
| 710 | R1419 end-submodule-stmt -> END [SUBMODULE [submodule-name]] |
| 711 | R1420 block-data -> block-data-stmt [specification-part] end-block-data-stmt |
| 712 | R1421 block-data-stmt -> BLOCK DATA [block-data-name] |
| 713 | R1422 end-block-data-stmt -> END [BLOCK DATA [block-data-name]] |
| 714 | |
| 715 | R1501 interface-block -> |
| 716 | interface-stmt [interface-specification]... end-interface-stmt |
| 717 | R1502 interface-specification -> interface-body | procedure-stmt |
| 718 | R1503 interface-stmt -> INTERFACE [generic-spec] | ABSTRACT INTERFACE |
| 719 | R1504 end-interface-stmt -> END INTERFACE [generic-spec] |
| 720 | R1505 interface-body -> |
| 721 | function-stmt [specification-part] end-function-stmt | |
| 722 | subroutine-stmt [specification-part] end-subroutine-stmt |
| 723 | R1506 procedure-stmt -> [MODULE] PROCEDURE [::] specific-procedure-list |
| 724 | R1507 specific-procedure -> procedure-name |
| 725 | R1508 generic-spec -> |
| 726 | generic-name | OPERATOR ( defined-operator ) | |
| 727 | ASSIGNMENT ( = ) | defined-io-generic-spec |
| 728 | R1509 defined-io-generic-spec -> |
| 729 | READ ( FORMATTED ) | READ ( UNFORMATTED ) | |
| 730 | WRITE ( FORMATTED ) | WRITE ( UNFORMATTED ) |
| 731 | R1510 generic-stmt -> |
| 732 | GENERIC [, access-spec] :: generic-spec => specific-procedure-list |
| 733 | R1511 external-stmt -> EXTERNAL [::] external-name-list |
| 734 | R1512 procedure-declaration-stmt -> |
| 735 | PROCEDURE ( [proc-interface] ) [[, proc-attr-spec]... ::] |
| 736 | proc-decl-list |
| 737 | R1513 proc-interface -> interface-name | declaration-type-spec |
| 738 | R1514 proc-attr-spec -> |
| 739 | access-spec | proc-language-binding-spec | INTENT ( intent-spec ) | |
| 740 | OPTIONAL | POINTER | PROTECTED | SAVE |
| 741 | R1515 proc-decl -> procedure-entity-name [=> proc-pointer-init] |
| 742 | R1516 interface-name -> name |
| 743 | R1517 proc-pointer-init -> null-init | initial-proc-target |
| 744 | R1518 initial-proc-target -> procedure-name |
| 745 | R1519 intrinsic-stmt -> INTRINSIC [::] intrinsic-procedure-name-list |
| 746 | R1520 function-reference -> procedure-designator ( [actual-arg-spec-list] ) |
| 747 | R1521 call-stmt -> CALL procedure-designator [( [actual-arg-spec-list] )] |
| 748 | R1522 procedure-designator -> |
| 749 | procedure-name | proc-component-ref | data-ref % binding-name |
| 750 | R1523 actual-arg-spec -> [keyword =] actual-arg |
| 751 | R1524 actual-arg -> |
| 752 | expr | variable | procedure-name | proc-component-ref | alt-return-spec |
| 753 | R1525 alt-return-spec -> * label |
| 754 | R1526 prefix -> prefix-spec [prefix-spec]... |
| 755 | R1527 prefix-spec -> |
| 756 | declaration-type-spec | ELEMENTAL | IMPURE | MODULE | NON_RECURSIVE | |
| 757 | PURE | RECURSIVE |
| 758 | R1528 proc-language-binding-spec -> language-binding-spec |
| 759 | R1529 function-subprogram -> |
| 760 | function-stmt [specification-part] [execution-part] |
| 761 | [internal-subprogram-part] end-function-stmt |
| 762 | R1530 function-stmt -> |
| 763 | [prefix] FUNCTION function-name ( [dummy-arg-name-list] ) [suffix] |
| 764 | R1531 dummy-arg-name -> name |
| 765 | R1532 suffix -> |
| 766 | proc-language-binding-spec [RESULT ( result-name )] | |
| 767 | RESULT ( result-name ) [proc-language-binding-spec] |
| 768 | R1533 end-function-stmt -> END [FUNCTION [function-name]] |
| 769 | R1534 subroutine-subprogram -> |
| 770 | subroutine-stmt [specification-part] [execution-part] |
| 771 | [internal-subprogram-part] end-subroutine-stmt |
| 772 | R1535 subroutine-stmt -> |
| 773 | [prefix] SUBROUTINE subroutine-name |
| 774 | [( [dummy-arg-list] ) [proc-language-binding-spec]] |
| 775 | R1536 dummy-arg -> dummy-arg-name | * |
| 776 | R1537 end-subroutine-stmt -> END [SUBROUTINE [subroutine-name]] |
| 777 | R1538 separate-module-subprogram -> |
| 778 | mp-subprogram-stmt [specification-part] [execution-part] |
| 779 | [internal-subprogram-part] end-mp-subprogram-stmt |
| 780 | R1539 mp-subprogram-stmt -> MODULE PROCEDURE procedure-name |
| 781 | R1540 end-mp-subprogram-stmt -> END [PROCEDURE [procedure-name]] |
| 782 | R1541 entry-stmt -> ENTRY entry-name [( [dummy-arg-list] ) [suffix]] |
| 783 | R1542 return-stmt -> RETURN [scalar-int-expr] |
| 784 | R1543 contains-stmt -> CONTAINS |
| 785 | R1544 stmt-function-stmt -> |
| 786 | function-name ( [dummy-arg-name-list] ) = scalar-expr |
