| 2716 | // |
| 2717 | #ifdef GPRE_FORTRAN |
| 2718 | static void remember_label(const TEXT* label_string) |
| 2719 | { |
| 2720 | SLONG label = atoi(label_string); |
| 2721 | if (label < 8192) |
| 2722 | { |
| 2723 | const UCHAR target_byte = label & 7; |
| 2724 | label >>= 3; |
| 2725 | gpreGlob.fortran_labels[label] |= 1 << target_byte; |
| 2726 | } |
| 2727 | } |
| 2728 | #endif |
| 2729 | |
| 2730 |