test

template <typename T>class Blob{
public:
typedef T value_type;
typedef typename std::vector<T>::size_type size_type;
Blob();
Blob(std::initializer_list<T> il);
size_type size() const{return data_size();}
bool empty() const{return data_empty();}
void push_back(const T &t){data->push_back(t);}
void push_back(T &&t){data->push_back(std::move(t));}
void pop_back();
T& back();
T& operator[](size_type i);

private:
std::shared_ptr<std::vector<T> > data;
void check(size_type i, const std::sting &msg) const;
//...
};

program main
implicit none
integer::a
a=10
write(*,*)a
end