get_default_profiles Subroutine

public subroutine get_default_profiles(profiles, error)

Create default profiles with standard features

Arguments

Type IntentOptional Attributes Name
type(profile_config_t), intent(out), allocatable :: profiles(:)

Instance of the profile configuration array
type(error_t), intent(out), allocatable :: error

Error handling

Source Code

    subroutine get_default_profiles(profiles, error)

        !> Instance of the profile configuration array
        type(profile_config_t), allocatable, intent(out) :: profiles(:)

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

        ! Create two default profiles: debug and release
        allocate(profiles(2))

        ! Debug profile with "debug" feature
        profiles(1)%name = "debug"
        allocate(profiles(1)%features(1))
        profiles(1)%features(1)%s = "debug"

        ! Release profile with "release" feature  
        profiles(2)%name = "release"
        allocate(profiles(2)%features(1))
        profiles(2)%features(1)%s = "release"

    end subroutine get_default_profiles