Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
FORCES
Manage
Activity
Members
Labels
Plan
Issues
13
Issue boards
Milestones
Code
Merge requests
7
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Model registry
Monitor
Service Desk
Analyze
Contributor analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
CHS
FORCES
Merge requests
!33
improved error_message
Code
Review changes
Check out branch
Download
Patches
Plain diff
Merged
improved error_message
21-make-error_message-behave-like-message
into
develop
Overview
5
Commits
3
Pipelines
2
Changes
4
Merged
Robert Schweppe
requested to merge
21-make-error_message-behave-like-message
into
develop
3 years ago
Overview
5
Commits
3
Pipelines
2
Changes
4
Expand
refactored mo_message
added functionality to error_message to include multiple arguments
deleted all usages of text_messages
added stump of unit test and removed old test
Closes
#21 (closed)
,
#19 (closed)
Edited
3 years ago
by
Robert Schweppe
👍
0
👎
0
Merge request reports
Compare
develop
version 1
06bcc495
3 years ago
develop (base)
and
latest version
latest version
9a46ba24
3 commits,
3 years ago
version 1
06bcc495
2 commits,
3 years ago
4 files
+
176
−
256
Inline
Compare changes
Side-by-side
Inline
Show whitespace changes
Show one file at a time
Files
4
Search (e.g. *.vue) (Ctrl+P)
src/pf_tests/test_mo_message.pf
0 → 100644
+
50
−
0
Options
module test_mo_message
use funit
use mo_message, only: message, error_message
use mo_kind, only: i4
implicit none
private
public :: test_message, test_error_message
contains
@test
subroutine test_message()
call message('mo_message')
call message('mo_message', advance='no')
call message('mo_message', advance='NO')
call message('mo_message', advance='YES')
call message('mo_message', advance='yes')
call message('mo_message', uni=1_i4)
call message('mo_message', uni=6_i4)
call message('mo_message', advance='no', uni=1_i4)
call message('')
call message(' ')
call message('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')
! this will fail
! call message('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11')
! template tests
! @assertTrue(.true.)
! @assertEqual(val, ref)
end subroutine test_message
subroutine test_error_message()
! call error_message('')
! @assertExceptionRaised('')
! call error_message(' ')
! @assertExceptionRaised(' ')
! call error_message('1', '2', '3', '4', '5', '6', '7', '8', '9', '0')
! @assertExceptionRaised('1234567890')
! this will fail
! call error_message('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11')
end subroutine test_error_message
end module test_mo_message
Loading