Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Set fcheck=all #793

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Set fcheck=all #793

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
46 changes: 23 additions & 23 deletions src/fpm/manifest/profiles.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -53,7 +53,7 @@ module fpm_manifest_profile
& info_profile, find_profile, DEFAULT_COMPILER

!> Name of the default compiler
character(len=*), parameter :: DEFAULT_COMPILER = 'gfortran'
character(len=*), parameter :: DEFAULT_COMPILER = 'gfortran'
integer, parameter :: OS_ALL = -1
character(len=:), allocatable :: path

Expand All @@ -78,7 +78,7 @@ module fpm_manifest_profile

!> Value repesenting OS
integer :: os_type

!> Fortran compiler flags
character(len=:), allocatable :: flags

Expand Down Expand Up @@ -110,16 +110,16 @@ module fpm_manifest_profile
function new_profile(profile_name, compiler, os_type, flags, c_flags, cxx_flags, &
link_time_flags, file_scope_flags, is_built_in) &
& result(profile)

!> Name of the profile
character(len=*), intent(in) :: profile_name

!> Name of the compiler
character(len=*), intent(in) :: compiler

!> Type of the OS
integer, intent(in) :: os_type

!> Fortran compiler flags
character(len=*), optional, intent(in) :: flags

Expand Down Expand Up @@ -190,7 +190,7 @@ subroutine validate_compiler_name(compiler_name, is_valid)
is_valid = .false.
end select
end subroutine validate_compiler_name

!> Check if os_name is a valid name of a supported OS
subroutine validate_os_name(os_name, is_valid)

Expand Down Expand Up @@ -373,10 +373,10 @@ subroutine get_flags(profile_name, compiler_name, os_type, key_list, table, prof
& flags, c_flags, cxx_flags, link_time_flags, file_scope_flags)
profindex = profindex + 1
end subroutine get_flags

!> Traverse operating system tables to obtain number of profiles
subroutine traverse_oss_for_size(profile_name, compiler_name, os_list, table, profiles_size, error)

!> Name of profile
character(len=:), allocatable, intent(in) :: profile_name

Expand Down Expand Up @@ -447,7 +447,7 @@ end subroutine traverse_oss_for_size

!> Traverse operating system tables to obtain profiles
subroutine traverse_oss(profile_name, compiler_name, os_list, table, profiles, profindex, error)

!> Name of profile
character(len=:), allocatable, intent(in) :: profile_name

Expand All @@ -468,7 +468,7 @@ subroutine traverse_oss(profile_name, compiler_name, os_list, table, profiles, p

!> Index in the list of profiles
integer, intent(inout) :: profindex

type(toml_key), allocatable :: key_list(:)
character(len=:), allocatable :: os_name, l_os_name
type(toml_table), pointer :: os_node
Expand Down Expand Up @@ -513,7 +513,7 @@ end subroutine traverse_oss

!> Traverse compiler tables
subroutine traverse_compilers(profile_name, comp_list, table, error, profiles_size, profiles, profindex)

!> Name of profile
character(len=:), allocatable, intent(in) :: profile_name

Expand All @@ -522,10 +522,10 @@ subroutine traverse_compilers(profile_name, comp_list, table, error, profiles_si

!> Table containing compiler tables
type(toml_table), pointer, intent(in) :: table

!> Error handling
type(error_t), allocatable, intent(out) :: error

!> Number of profiles in list of profiles
integer, intent(inout), optional :: profiles_size

Expand All @@ -534,8 +534,8 @@ subroutine traverse_compilers(profile_name, comp_list, table, error, profiles_si

!> Index in the list of profiles
integer, intent(inout), optional :: profindex
character(len=:), allocatable :: compiler_name

character(len=:), allocatable :: compiler_name
type(toml_table), pointer :: comp_node
type(toml_key), allocatable :: os_list(:)
integer :: icomp, stat
Expand All @@ -544,7 +544,7 @@ subroutine traverse_compilers(profile_name, comp_list, table, error, profiles_si
if (size(comp_list)<1) return
do icomp = 1, size(comp_list)
call validate_compiler_name(comp_list(icomp)%key, is_valid)
if (is_valid) then
if (is_valid) then
compiler_name = comp_list(icomp)%key
call get_value(table, compiler_name, comp_node, stat=stat)
if (stat /= toml_stat%success) then
Expand All @@ -567,7 +567,7 @@ subroutine traverse_compilers(profile_name, comp_list, table, error, profiles_si
else
call fatal_error(error,'*traverse_compilers*:Error: Compiler name not specified or invalid.')
end if
end do
end do
end subroutine traverse_compilers

!> Construct new profiles array from a TOML data structure
Expand Down Expand Up @@ -596,9 +596,9 @@ subroutine new_profiles(profiles, table, error)
default_profiles = get_default_profiles(error)
if (allocated(error)) return
call table%get_keys(prof_list)

if (size(prof_list) < 1) return

profiles_size = 0

do iprof = 1, size(prof_list)
Expand Down Expand Up @@ -633,7 +633,7 @@ subroutine new_profiles(profiles, table, error)

profiles_size = profiles_size + size(default_profiles)
allocate(profiles(profiles_size))

do profindex=1, size(default_profiles)
profiles(profindex) = default_profiles(profindex)
end do
Expand Down Expand Up @@ -758,8 +758,8 @@ function get_default_profiles(error) result(default_profiles)
& new_profile('debug', &
& 'gfortran', &
& OS_ALL, &
& flags = ' -Wall -Wextra -Wimplicit-interface -fPIC -fmax-errors=1 -g -fcheck=bounds&
& -fcheck=array-temps -fbacktrace -fcoarray=single', &
& flags = ' -Wall -Wextra -Wimplicit-interface -fPIC -fmax-errors=1 -g -fcheck=all&
& -fbacktrace -fcoarray=single', &
& is_built_in=.true.), &
& new_profile('debug', &
& 'f95', &
Expand Down