Also add a test for this.

Per #5797 (comment), see if you can modify the generator script to insert the modification for complex correctly, using the existing mechanism. That way we don't need to duplicate / manually maintain the two functions.

@HarshilShah1804 just a heads up. If you check aimag intrinsic, it already follows what we're trying to do here:

program main
    complex(8) :: arr2(3) = [(5._8, 7._8), (8.2_8, 7.12_8), (1.2_8, 3.4_8)]
    print *, kind(real(arr2))
end program 

$ lfortran a.f90
8
$ gfortran a.f90 && ./a.out
           8

You can follow its implementation and it'll be a simple fix.