From dea5951e8cfef23fa06e420594118081ba76753b Mon Sep 17 00:00:00 2001 From: Philipp Date: Sat, 4 May 2024 20:26:08 +0200 Subject: [PATCH] Decreased max. number of messages. --- src/dm_mqueue.f90 | 2 +- test/dmtestmqueue.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/dm_mqueue.f90 b/src/dm_mqueue.f90 index b219d52..56f3501 100644 --- a/src/dm_mqueue.f90 +++ b/src/dm_mqueue.f90 @@ -15,7 +15,7 @@ module dm_mqueue integer, parameter, public :: MQUEUE_MODE = int(o'0644') !! Default permissions (octal). integer, parameter, public :: MQUEUE_NAME_LEN = ID_LEN + 1 !! Maximum message queue identifier length. - integer, parameter, public :: MQUEUE_MAX_MSG = 16 !! Maximum number of messages in queue. + integer, parameter, public :: MQUEUE_MAX_MSG = 10 !! Maximum number of messages in queue. integer, parameter, public :: MQUEUE_RDONLY = 0 !! Read-only access. integer, parameter, public :: MQUEUE_WRONLY = 1 !! Write-only access. diff --git a/test/dmtestmqueue.f90 b/test/dmtestmqueue.f90 index d862c20..aea39b6 100644 --- a/test/dmtestmqueue.f90 +++ b/test/dmtestmqueue.f90 @@ -23,7 +23,7 @@ program dmtestmqueue integer, parameter :: NTESTS = 2 character(len=*), parameter :: MQ_NAME = 'dmtest' !! Message queue name (without leading `/`). - integer, parameter :: MQ_MAX_MSG = 32 !! Maximum number of messages in queue. + integer, parameter :: MQ_MAX_MSG = 10 !! Maximum number of messages in queue. integer, parameter :: MQ_MODE = int(o'0644') !! Access permissions (octal). logical :: stats(NTESTS)