|
3 | 3 | !> A profiles table can currently have the following subtables:
|
4 | 4 | !> Profile names - any string, if omitted, flags are appended to all matching profiles
|
5 | 5 | !> Compiler - any from the following list, omitting it yields an error
|
| 6 | +!> |
6 | 7 | !> - "gfortran"
|
7 | 8 | !> - "ifort"
|
8 | 9 | !> - "ifx"
|
|
17 | 18 | !> - "crayftn"
|
18 | 19 | !> - "xlf90"
|
19 | 20 | !> - "ftn95"
|
| 21 | +!> |
20 | 22 | !> OS - any from the following list, if omitted, the profile is used if and only
|
21 | 23 | !> if there is no profile perfectly matching the current configuration
|
| 24 | +!> |
22 | 25 | !> - "linux"
|
23 | 26 | !> - "macos"
|
24 | 27 | !> - "windows"
|
@@ -280,10 +283,10 @@ subroutine validate_profile_table(profile_name, compiler_name, key_list, table,
|
280 | 283 | end do
|
281 | 284 | else if (.not. os_valid) then
|
282 | 285 | call validate_os_name(key_name, is_valid)
|
283 |
| - err_message = "Unnexpected key " // key_name // " found in profile table "//profile_name//" "//compiler_name//"." |
| 286 | + err_message = "Unexpected key " // key_name // " found in profile table "//profile_name//" "//compiler_name//"." |
284 | 287 | if (.not. is_valid) call syntax_error(error, err_message)
|
285 | 288 | else
|
286 |
| - err_message = "Unnexpected key " // key_name // " found in profile table "//profile_name//" "//compiler_name//"." |
| 289 | + err_message = "Unexpected key " // key_name // " found in profile table "//profile_name//" "//compiler_name//"." |
287 | 290 | call syntax_error(error, err_message)
|
288 | 291 | end if
|
289 | 292 | end do
|
@@ -566,7 +569,7 @@ subroutine new_profiles(profiles, table, error)
|
566 | 569 | end if
|
567 | 570 | end do
|
568 | 571 |
|
569 |
| - profiles_size=profiles_size+size(default_profiles) |
| 572 | + profiles_size = profiles_size + size(default_profiles) |
570 | 573 | allocate(profiles(profiles_size))
|
571 | 574 |
|
572 | 575 | do profindex=1, size(default_profiles)
|
|
0 commit comments