From c6ecd6d977ebfede442febe27097026baf6c7fa9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 10 Dec 2023 12:50:22 +0100 Subject: [PATCH] avoid internal compiler error for ifort/ifx --- src/YAML_types.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/YAML_types.f90 b/src/YAML_types.f90 index 1433b62d3..d73778c77 100644 --- a/src/YAML_types.f90 +++ b/src/YAML_types.f90 @@ -271,6 +271,7 @@ subroutine YAML_types_selfTest() end block dict +#ifdef __GFORTRAN__ dict_get_as1dReal_shape: block type(tDict), pointer :: d type(tList), pointer :: l_outer, l_inner @@ -308,6 +309,7 @@ subroutine YAML_types_selfTest() error stop 'dict_get_as1dReal_shape scalar' end block dict_get_as1dReal_shape +#endif end subroutine YAML_types_selfTest