avoid internal compiler error for ifort/ifx

This commit is contained in:
Martin Diehl 2023-12-10 12:50:22 +01:00
parent d02c74cdd6
commit c6ecd6d977
No known key found for this signature in database
GPG Key ID: 1FD50837275A0A9B
1 changed files with 2 additions and 0 deletions

View File

@ -271,6 +271,7 @@ subroutine YAML_types_selfTest()
end block dict end block dict
#ifdef __GFORTRAN__
dict_get_as1dReal_shape: block dict_get_as1dReal_shape: block
type(tDict), pointer :: d type(tDict), pointer :: d
type(tList), pointer :: l_outer, l_inner type(tList), pointer :: l_outer, l_inner
@ -308,6 +309,7 @@ subroutine YAML_types_selfTest()
error stop 'dict_get_as1dReal_shape scalar' error stop 'dict_get_as1dReal_shape scalar'
end block dict_get_as1dReal_shape end block dict_get_as1dReal_shape
#endif
end subroutine YAML_types_selfTest end subroutine YAML_types_selfTest