avoid exception when subprogram name is empty
Authored by: bertl 2020-10-13
Parent: [r59]
Child: [r61]