subroutine test_get_attribute_missing() !type (FileMetadata) :: cf !class (*), pointer :: attr ! no missing any more ! attr => cf%get_attribute('x',rc=status) ! @assertExceptionRaised('FileMetadata::get_attribute() - no such attribute <x>.') ! @assertEqual(pFIO_ATTRIBUTE_NOT_FOUND, status) ! @assertTrue(.not. associated(attr)) end subroutine test_get_attribute_missing