Commit 692d7e25 authored by Robert Schweppe's avatar Robert Schweppe
Browse files

- something is wrong with getAttributesNames in test case... print diagnostics

parent 2c28bf58
Pipeline #53672 failed with stages
in 11 minutes and 1 second
......@@ -864,12 +864,12 @@ contains
character(256), dimension(:), allocatable :: attributeNames
integer(i4), parameter :: maxNames = 100_i4
integer(i4) :: nAtts = 0_i4
character(256) :: attName
integer(i4) :: nAtts
integer(i4) :: status
! assume a maximum number of 100 attributes that are checked
allocate(attributeNames(maxNames))
nAtts = 0_i4
do while (nAtts < maxNames)
select type (self)
class is (NcGroup)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment