Skip to content

Commit

Permalink
fix: add allocatable and pure macros back into platform.h (#1386)
Browse files Browse the repository at this point in the history
  • Loading branch information
rem1776 authored Oct 10, 2023
1 parent 03ee7de commit 06b94a7
Showing 1 changed file with 22 additions and 0 deletions.
22 changes: 22 additions & 0 deletions include/fms_platform.h
Original file line number Diff line number Diff line change
Expand Up @@ -46,6 +46,28 @@ use,intrinsic :: iso_c_binding, only: c_double,c_float,c_int64_t, &
!DEC$ MESSAGE:'Using 8-byte addressing'
#endif

!Control "pure" functions.
#ifdef NO_F95
#define _PURE
!DEC$ MESSAGE:'Not using pure routines.'
#else
#define _PURE pure
!DEC$ MESSAGE:'Using pure routines.'
#endif

!Control array members of derived types.
#ifdef NO_F2000
#define _ALLOCATABLE pointer
#define _NULL =>null()
#define _ALLOCATED associated
!DEC$ MESSAGE:'Using pointer derived type array members.'
#else
#define _ALLOCATABLE allocatable
#define _NULL
#define _ALLOCATED allocated
!DEC$ MESSAGE:'Using allocatable derived type array members.'
#endif

!Control use of cray pointers within mpp_peset
!Other cray pointer usage in mpp routines is compiled regardless
#ifdef NO_CRAY_POINTERS
Expand Down

0 comments on commit 06b94a7

Please sign in to comment.