/dports/lang/gcc6-aux/gcc-6-20180516/libgfortran/generated/ |
H A D | unpack_i16.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i16() local 124 if (mstride[0] == 0) in unpack0_i16() 125 mstride[0] = 1; in unpack0_i16() 131 mstride0 = mstride[0]; in unpack0_i16() 161 mptr -= mstride[n] * extent[n]; in unpack0_i16() 173 mptr += mstride[n]; in unpack0_i16() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i16() local 274 if (mstride[0] == 0) in unpack1_i16() 275 mstride[0] = 1; in unpack1_i16() 282 mstride0 = mstride[0]; in unpack1_i16() [all …]
|
H A D | unpack_c10.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c10() local 124 if (mstride[0] == 0) in unpack0_c10() 125 mstride[0] = 1; in unpack0_c10() 131 mstride0 = mstride[0]; in unpack0_c10() 161 mptr -= mstride[n] * extent[n]; in unpack0_c10() 173 mptr += mstride[n]; in unpack0_c10() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c10() local 274 if (mstride[0] == 0) in unpack1_c10() 275 mstride[0] = 1; in unpack1_c10() 282 mstride0 = mstride[0]; in unpack1_c10() [all …]
|
H A D | unpack_c4.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c4() local 124 if (mstride[0] == 0) in unpack0_c4() 125 mstride[0] = 1; in unpack0_c4() 131 mstride0 = mstride[0]; in unpack0_c4() 161 mptr -= mstride[n] * extent[n]; in unpack0_c4() 173 mptr += mstride[n]; in unpack0_c4() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c4() local 274 if (mstride[0] == 0) in unpack1_c4() 275 mstride[0] = 1; in unpack1_c4() 282 mstride0 = mstride[0]; in unpack1_c4() [all …]
|
H A D | unpack_c8.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c8() local 124 if (mstride[0] == 0) in unpack0_c8() 125 mstride[0] = 1; in unpack0_c8() 131 mstride0 = mstride[0]; in unpack0_c8() 161 mptr -= mstride[n] * extent[n]; in unpack0_c8() 173 mptr += mstride[n]; in unpack0_c8() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c8() local 274 if (mstride[0] == 0) in unpack1_c8() 275 mstride[0] = 1; in unpack1_c8() 282 mstride0 = mstride[0]; in unpack1_c8() [all …]
|
H A D | unpack_i1.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i1() local 124 if (mstride[0] == 0) in unpack0_i1() 125 mstride[0] = 1; in unpack0_i1() 131 mstride0 = mstride[0]; in unpack0_i1() 161 mptr -= mstride[n] * extent[n]; in unpack0_i1() 173 mptr += mstride[n]; in unpack0_i1() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i1() local 274 if (mstride[0] == 0) in unpack1_i1() 275 mstride[0] = 1; in unpack1_i1() 282 mstride0 = mstride[0]; in unpack1_i1() [all …]
|
H A D | unpack_c16.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c16() local 124 if (mstride[0] == 0) in unpack0_c16() 125 mstride[0] = 1; in unpack0_c16() 131 mstride0 = mstride[0]; in unpack0_c16() 161 mptr -= mstride[n] * extent[n]; in unpack0_c16() 173 mptr += mstride[n]; in unpack0_c16() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c16() local 274 if (mstride[0] == 0) in unpack1_c16() 275 mstride[0] = 1; in unpack1_c16() 282 mstride0 = mstride[0]; in unpack1_c16() [all …]
|
H A D | unpack_i4.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i4() local 124 if (mstride[0] == 0) in unpack0_i4() 125 mstride[0] = 1; in unpack0_i4() 131 mstride0 = mstride[0]; in unpack0_i4() 161 mptr -= mstride[n] * extent[n]; in unpack0_i4() 173 mptr += mstride[n]; in unpack0_i4() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i4() local 274 if (mstride[0] == 0) in unpack1_i4() 275 mstride[0] = 1; in unpack1_i4() 282 mstride0 = mstride[0]; in unpack1_i4() [all …]
|
H A D | unpack_r16.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_r16() local 124 if (mstride[0] == 0) in unpack0_r16() 125 mstride[0] = 1; in unpack0_r16() 131 mstride0 = mstride[0]; in unpack0_r16() 161 mptr -= mstride[n] * extent[n]; in unpack0_r16() 173 mptr += mstride[n]; in unpack0_r16() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_r16() local 274 if (mstride[0] == 0) in unpack1_r16() 275 mstride[0] = 1; in unpack1_r16() 282 mstride0 = mstride[0]; in unpack1_r16() [all …]
|
H A D | unpack_r4.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_r4() local 124 if (mstride[0] == 0) in unpack0_r4() 125 mstride[0] = 1; in unpack0_r4() 131 mstride0 = mstride[0]; in unpack0_r4() 161 mptr -= mstride[n] * extent[n]; in unpack0_r4() 173 mptr += mstride[n]; in unpack0_r4() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_r4() local 274 if (mstride[0] == 0) in unpack1_r4() 275 mstride[0] = 1; in unpack1_r4() 282 mstride0 = mstride[0]; in unpack1_r4() [all …]
|
H A D | unpack_r8.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_r8() local 124 if (mstride[0] == 0) in unpack0_r8() 125 mstride[0] = 1; in unpack0_r8() 131 mstride0 = mstride[0]; in unpack0_r8() 161 mptr -= mstride[n] * extent[n]; in unpack0_r8() 173 mptr += mstride[n]; in unpack0_r8() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_r8() local 274 if (mstride[0] == 0) in unpack1_r8() 275 mstride[0] = 1; in unpack1_r8() 282 mstride0 = mstride[0]; in unpack1_r8() [all …]
|
H A D | unpack_i2.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i2() local 124 if (mstride[0] == 0) in unpack0_i2() 125 mstride[0] = 1; in unpack0_i2() 131 mstride0 = mstride[0]; in unpack0_i2() 161 mptr -= mstride[n] * extent[n]; in unpack0_i2() 173 mptr += mstride[n]; in unpack0_i2() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i2() local 274 if (mstride[0] == 0) in unpack1_i2() 275 mstride[0] = 1; in unpack1_i2() 282 mstride0 = mstride[0]; in unpack1_i2() [all …]
|
H A D | unpack_i8.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i8() local 124 if (mstride[0] == 0) in unpack0_i8() 125 mstride[0] = 1; in unpack0_i8() 131 mstride0 = mstride[0]; in unpack0_i8() 161 mptr -= mstride[n] * extent[n]; in unpack0_i8() 173 mptr += mstride[n]; in unpack0_i8() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i8() local 274 if (mstride[0] == 0) in unpack1_i8() 275 mstride[0] = 1; in unpack1_i8() 282 mstride0 = mstride[0]; in unpack1_i8() [all …]
|
H A D | unpack_r10.c | 50 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_r10() local 124 if (mstride[0] == 0) in unpack0_r10() 125 mstride[0] = 1; in unpack0_r10() 131 mstride0 = mstride[0]; in unpack0_r10() 161 mptr -= mstride[n] * extent[n]; in unpack0_r10() 173 mptr += mstride[n]; in unpack0_r10() 196 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_r10() local 274 if (mstride[0] == 0) in unpack1_r10() 275 mstride[0] = 1; in unpack1_r10() 282 mstride0 = mstride[0]; in unpack1_r10() [all …]
|
/dports/lang/gcc8/gcc-8.5.0/libgfortran/generated/ |
H A D | unpack_c16.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c16() local 122 if (mstride[0] == 0) in unpack0_c16() 123 mstride[0] = 1; in unpack0_c16() 129 mstride0 = mstride[0]; in unpack0_c16() 159 mptr -= mstride[n] * extent[n]; in unpack0_c16() 171 mptr += mstride[n]; in unpack0_c16() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c16() local 272 if (mstride[0] == 0) in unpack1_c16() 273 mstride[0] = 1; in unpack1_c16() 280 mstride0 = mstride[0]; in unpack1_c16() [all …]
|
H A D | unpack_c8.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c8() local 122 if (mstride[0] == 0) in unpack0_c8() 123 mstride[0] = 1; in unpack0_c8() 129 mstride0 = mstride[0]; in unpack0_c8() 159 mptr -= mstride[n] * extent[n]; in unpack0_c8() 171 mptr += mstride[n]; in unpack0_c8() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c8() local 272 if (mstride[0] == 0) in unpack1_c8() 273 mstride[0] = 1; in unpack1_c8() 280 mstride0 = mstride[0]; in unpack1_c8() [all …]
|
H A D | unpack_i1.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i1() local 122 if (mstride[0] == 0) in unpack0_i1() 123 mstride[0] = 1; in unpack0_i1() 129 mstride0 = mstride[0]; in unpack0_i1() 159 mptr -= mstride[n] * extent[n]; in unpack0_i1() 171 mptr += mstride[n]; in unpack0_i1() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i1() local 272 if (mstride[0] == 0) in unpack1_i1() 273 mstride[0] = 1; in unpack1_i1() 280 mstride0 = mstride[0]; in unpack1_i1() [all …]
|
H A D | unpack_i2.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i2() local 122 if (mstride[0] == 0) in unpack0_i2() 123 mstride[0] = 1; in unpack0_i2() 129 mstride0 = mstride[0]; in unpack0_i2() 159 mptr -= mstride[n] * extent[n]; in unpack0_i2() 171 mptr += mstride[n]; in unpack0_i2() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i2() local 272 if (mstride[0] == 0) in unpack1_i2() 273 mstride[0] = 1; in unpack1_i2() 280 mstride0 = mstride[0]; in unpack1_i2() [all …]
|
H A D | unpack_i4.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i4() local 122 if (mstride[0] == 0) in unpack0_i4() 123 mstride[0] = 1; in unpack0_i4() 129 mstride0 = mstride[0]; in unpack0_i4() 159 mptr -= mstride[n] * extent[n]; in unpack0_i4() 171 mptr += mstride[n]; in unpack0_i4() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i4() local 272 if (mstride[0] == 0) in unpack1_i4() 273 mstride[0] = 1; in unpack1_i4() 280 mstride0 = mstride[0]; in unpack1_i4() [all …]
|
H A D | unpack_r10.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_r10() local 122 if (mstride[0] == 0) in unpack0_r10() 123 mstride[0] = 1; in unpack0_r10() 129 mstride0 = mstride[0]; in unpack0_r10() 159 mptr -= mstride[n] * extent[n]; in unpack0_r10() 171 mptr += mstride[n]; in unpack0_r10() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_r10() local 272 if (mstride[0] == 0) in unpack1_r10() 273 mstride[0] = 1; in unpack1_r10() 280 mstride0 = mstride[0]; in unpack1_r10() [all …]
|
H A D | unpack_r16.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_r16() local 122 if (mstride[0] == 0) in unpack0_r16() 123 mstride[0] = 1; in unpack0_r16() 129 mstride0 = mstride[0]; in unpack0_r16() 159 mptr -= mstride[n] * extent[n]; in unpack0_r16() 171 mptr += mstride[n]; in unpack0_r16() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_r16() local 272 if (mstride[0] == 0) in unpack1_r16() 273 mstride[0] = 1; in unpack1_r16() 280 mstride0 = mstride[0]; in unpack1_r16() [all …]
|
H A D | unpack_c10.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c10() local 122 if (mstride[0] == 0) in unpack0_c10() 123 mstride[0] = 1; in unpack0_c10() 129 mstride0 = mstride[0]; in unpack0_c10() 159 mptr -= mstride[n] * extent[n]; in unpack0_c10() 171 mptr += mstride[n]; in unpack0_c10() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c10() local 272 if (mstride[0] == 0) in unpack1_c10() 273 mstride[0] = 1; in unpack1_c10() 280 mstride0 = mstride[0]; in unpack1_c10() [all …]
|
H A D | unpack_i16.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i16() local 122 if (mstride[0] == 0) in unpack0_i16() 123 mstride[0] = 1; in unpack0_i16() 129 mstride0 = mstride[0]; in unpack0_i16() 159 mptr -= mstride[n] * extent[n]; in unpack0_i16() 171 mptr += mstride[n]; in unpack0_i16() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i16() local 272 if (mstride[0] == 0) in unpack1_i16() 273 mstride[0] = 1; in unpack1_i16() 280 mstride0 = mstride[0]; in unpack1_i16() [all …]
|
H A D | unpack_c4.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_c4() local 122 if (mstride[0] == 0) in unpack0_c4() 123 mstride[0] = 1; in unpack0_c4() 129 mstride0 = mstride[0]; in unpack0_c4() 159 mptr -= mstride[n] * extent[n]; in unpack0_c4() 171 mptr += mstride[n]; in unpack0_c4() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_c4() local 272 if (mstride[0] == 0) in unpack1_c4() 273 mstride[0] = 1; in unpack1_c4() 280 mstride0 = mstride[0]; in unpack1_c4() [all …]
|
H A D | unpack_r8.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_r8() local 122 if (mstride[0] == 0) in unpack0_r8() 123 mstride[0] = 1; in unpack0_r8() 129 mstride0 = mstride[0]; in unpack0_r8() 159 mptr -= mstride[n] * extent[n]; in unpack0_r8() 171 mptr += mstride[n]; in unpack0_r8() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_r8() local 272 if (mstride[0] == 0) in unpack1_r8() 273 mstride[0] = 1; in unpack1_r8() 280 mstride0 = mstride[0]; in unpack1_r8() [all …]
|
H A D | unpack_i8.c | 48 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack0_i8() local 122 if (mstride[0] == 0) in unpack0_i8() 123 mstride[0] = 1; in unpack0_i8() 129 mstride0 = mstride[0]; in unpack0_i8() 159 mptr -= mstride[n] * extent[n]; in unpack0_i8() 171 mptr += mstride[n]; in unpack0_i8() 194 index_type mstride[GFC_MAX_DIMENSIONS]; in unpack1_i8() local 272 if (mstride[0] == 0) in unpack1_i8() 273 mstride[0] = 1; in unpack1_i8() 280 mstride0 = mstride[0]; in unpack1_i8() [all …]
|