+ /* some letters indicate a dynamic bound, ie what follows
+ is the offset from the fp which contains the bound; this will
+ need a different encoding when pc a['A'..'Z'] is
+ added; J is a special flag to handle fortran a(*) bounds
+ */
+ switch(*curchar) {
+ case 'A':
+ t->symvalue.rangev.lowertype = R_ARG;
+ curchar++;
+ break;
+
+ case 'T':
+ t->symvalue.rangev.lowertype = R_TEMP;
+ curchar++;
+ break;
+
+ case 'J':
+ t->symvalue.rangev.lowertype = R_ADJUST;
+ curchar++;
+ break;
+
+ default:
+ t->symvalue.rangev.lowertype = R_CONST;
+ break;
+
+ }
+ t->symvalue.rangev.lower = getint();