LadaF

module FFTW3
  use, intrinsic :: iso_c_binding
  include "fftw3.f03"
end module
       
    use FFTW3
    implicit none

    integer, parameter :: n = 100

LadaF

# include <stdio.h>
char* ch;
struct typ{
 int i,j;
 float a,b;
};
struct typ t;

int main(void)
{