subroutine get_release_compile_flags(id, flags)
integer(compiler_enum), intent(in) :: id
character(len=:), allocatable, intent(out) :: flags
select case(id)
case default
flags = ""
case(id_caf)
flags = &
flag_gnu_opt//&
flag_gnu_external//&
flag_gnu_pic//&
flag_gnu_limit
case(id_gcc)
flags = &
flag_gnu_opt//&
flag_gnu_external//&
flag_gnu_pic//&
flag_gnu_limit//&
flag_gnu_coarray
case(id_f95)
flags = &
flag_gnu_opt//&
flag_gnu_external//&
flag_gnu_pic//&
flag_gnu_limit
case(id_nvhpc)
flags = &
flag_pgi_backslash
case(id_ibmxl)
flags = &
flag_ibmxl_backslash
case(id_intel_classic_nix)
flags = &
flag_intel_fp//&
flag_intel_align//&
flag_intel_limit//&
flag_intel_pthread//&
flag_intel_nogen//&
flag_intel_byterecl//&
flag_intel_standard_compliance
case(id_intel_classic_mac)
flags = &
flag_intel_fp//&
flag_intel_align//&
flag_intel_limit//&
flag_intel_pthread//&
flag_intel_nogen//&
flag_intel_byterecl//&
flag_intel_standard_compliance
case(id_intel_classic_windows)
flags = &
& flag_intel_fp_win//&
flag_intel_align_win//&
flag_intel_limit_win//&
flag_intel_pthread_win//&
flag_intel_nogen_win//&
flag_intel_byterecl_win//&
flag_intel_standard_compliance_win
case(id_intel_llvm_nix)
flags = &
flag_intel_fp//&
flag_intel_align//&
flag_intel_limit//&
flag_intel_pthread//&
flag_intel_nogen//&
flag_intel_byterecl//&
flag_intel_standard_compliance
case(id_intel_llvm_windows)
flags = &
flag_intel_fp_win//&
flag_intel_align_win//&
flag_intel_limit_win//&
flag_intel_pthread_win//&
flag_intel_nogen_win//&
flag_intel_byterecl_win//&
flag_intel_standard_compliance_win
case(id_nag)
flags = &
flag_nag_opt//&
flag_nag_coarray//&
flag_nag_pic
case(id_lfortran)
flags = &
flag_lfortran_opt
end select
end subroutine get_release_compile_flags