{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20081122%2F1227981315\" title=\"\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u540d\u3068\u30c7\u30d5\u30a9\u30eb\u30c8\u521d\u671f\u5316\u3092\u542b\u3080\u69cb\u9020\u30b3\u30f3\u30b9\u30c8\u30e9\u30af\u30bf\u30fc - fortran66\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":"\u30b3\u30f3\u30dd\u30fc\u30cd\u30f3\u30c8\u540d\u3068\u30c7\u30d5\u30a9\u30eb\u30c8\u521d\u671f\u5316\u3092\u542b\u3080\u69cb\u9020\u30b3\u30f3\u30b9\u30c8\u30e9\u30af\u30bf\u30fc","author_name":"fortran66","blog_url":"https://fortran66.hatenablog.com/","author_url":"https://blog.hatena.ne.jp/fortran66/","version":"1.0","categories":["Fortran2003"],"provider_name":"Hatena Blog","width":"100%","type":"rich","published":"2008-11-22 02:55:15","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","provider_url":"https://hatena.blog","url":"https://fortran66.hatenablog.com/entry/20081122/1227981315","height":"190","description":"\u305f\u3076\u3093\u3053\u306e\u3053\u3068\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3046\u306e\u3060\u304c\u30fb\u30fb PROGRAM test IMPLICIT NONE INTEGER :: i TYPE :: t_test INTEGER :: n = 9 CHARACTER(LEN = 10) :: text REAL :: a(10) END TYPE t_test ! TYPE (t_test), PARAMETER :: unko = t_test(99, 'Yaranaika', [REAL:: (i, i = 1, 10)]) PRINT *, unko PRINT * PRINT *, t_test(text = 'UHO!', a = 990.0)\u2026","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20081130/20081130025538.gif"}