Data update

Task/HTTP/Fortran/http.f

@@ -0,0 +1,20 @@
+program simple_get
+    use http, only : response_type, request
+    implicit none
+    type(response_type) :: response
+
+    ! Send a GET request to retrieve JSON data
+    response = request(url='https://jsonplaceholder.typicode.com/todos/1')
+
+    ! Check if the request was successful
+    if (.not. response%ok) then
+        print *, 'Error message:', response%err_msg
+    else
+        ! Print the response details
+        print *, 'Response Code    :', response%status_code
+        print *, 'Response Length  :', response%content_length
+        print *, 'Response Method  :', response%method
+        print *, 'Response Content :', response%content
+    end if
+
+end program simple_get