PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / c_sizeof_3.f90
blob8a68cb94c304d3af40b47d0408947632b953eec7
1 ! { dg-do link }
3 ! PR fortran/40568
5 ! Module checks for C_SIZEOF (part of ISO_C_BINDING)
7 subroutine test
8 use iso_c_binding, only: foo => c_sizeof, bar=> c_sizeof, c_sizeof, c_int
9 integer(c_int) :: i
10 print *, c_sizeof(i), bar(i), foo(i)
11 end
13 use iso_c_binding
14 implicit none
15 integer(c_int) :: i
16 print *, c_sizeof(i)
17 call test()
18 end